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ABSTRACT 




High Strength Low Alloy (HSLA) steels have been shown 
to posses high strength and toughness. Additionally, these 
steels can be welded without the normal preheating required 
by comparable HY-series steels. HSLA - 100, 100 Ksi yield 
strength, contains increased amounts of copper, manganese 
and nickel over the currently certified HSLA - 80. However, 
prior to use in Naval ship construction knowledge of the 
steels toughness behavior is necessary. Existing fracture 
mechanics models are not applicable to HSLA - 100 because 
HSLA- 1 00 has only 0.04/ carbon and these models use carbides 
as the nucleation sites for cleavage fracture. This research 
is part of a program to investigate and model the 
micromechanics of deformation and fracture of HSLA-100. 

Tensile testing of hourglass shaped specimens was 
conducted at quasi-static strain rates. Individual tensile 
test temperatures ranged from 24 C to -196 C. True stress, 
corrected for necking, and true plastic strain were 
monitored throughout the tests. This allowed a comparison to 
be made between the plastic strain behavior of HSLA - 100 
steel and a traditional constitutive equation used to 
describe the stress-strain behavior of metals. 
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I. 



INTRODUCTION 



A. DEVELOPMENT OF COPPER BEARING HSLA STEELS 

The problems associated with welding quenched and 
tempered high alloy and plain carbon steels are well 
documented [Refs. 1,2]. The high cost of manufacturing and 
producing satisfactory critical welds in these conventional 
steels combined with the desire for higher strength 
weldable materials has led to the development of High 
Strength Low Alloy (HSLA) steels. These steels utilize 
small microalloying element additions while Keeping carbon 
below 0. 15'/ to develop the desired strength and toughness 
1 eve 1 s. 

The variety of steels classified as high strength low 
alloy (HSLA) has expanded greatly over the past decade. 
Orginally the classification applied strictly to carbon 
manganese steels which were microalloyed with niobium, 
vanadium or titanium. The category of HSLA steels now 
includes acicular ferritic or low carbon banitic steels, 
higher carbon more pearl itic steels, quenched and tempered 
steels, dual phase steels, and cold rolled and tempered 
steels. This paper will deal with acicular ferritic HSLA 
steels where copper is the primary strengthening 
microalloying constituent. When referring to HSLA steels 
herein this is the intent. 
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The ability of Cu additions to strengthen steels has 
been know since the 1930' s; however, commercial development 
and production was slow to proceed until the late 1960's 
[Ref. 3). The Key reason for the slow progress in developing 
this type of HSLA steel was the deterioration of the hot 
working properties of Cu bearing steels [Refs. 4,5). Once 
the problem of "hot shortness" was overcome a rapid 
development of a variety of Cu bearing HSLA steels followed. 

During the 1970' s several Cu bearing low alloy steels 
with similar chemical compositions were developed and 
tested. Various trade names are: NICOP, IN-787, and NICUAGE 
TYPE 1. High yield strength, above 70 KSI, improved 
weldability, toughness, ductility, and corrosion resistance 
over conventional steels has been reported for these new 
HSLA steels. [Refs. 6,7,8] 

The military has certified a low alloy Copper - Nickel 
steel for structural uses, which is quite similar to the 
above mentioned commercial steels, designated HSLA - 80. The 
chemical composition of HSLA - 80 (MIL-S-24645 ) is listed in 
Table I of Appendix A which is taken in it's entirety from 
Reference 9. 

B. INFLUENCE OF ALLOYING ELEMENTS ON HSLA STEELS 

A portion of the Fe-Cu phase diagram is shown in Figure 
1 [Ref. 10]. Wilson [Ref. 5:pp. 164-165) has verified that a 
sufficiently hardenable Fe-Cu alloy can be made to transform 
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Figure 1. Iron Rich End of the Fe-Cu 
Phase Diagram 

from the austenite region to form martensite and 
supersaturated ferrite. As the solubility of copper in 
ferrite is less than in austenite some copper may 
precipitate in the ferrite however, the equilibrium 
solubility is not reached on cooling. Subsequent aging heat 
treatment then produces high strength levels by uniform 
precipitation of a copper rich epsilon phase which appears 
as rods or spheres. Quenching from elevated austenitizing 
temperatures causes significantly more copper to remain in 
solid solution than air cooling. The subsequent 
precipitation of epsilon copper particles in the ferrite by 
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heat treating provides the primary strengthening mechanism 



of this type of HSLA steel. (Refs. 11,12] 

The microstructure of HSLA - 80 (Class 3 - quenched and 
aged) varies, ( depending on cooling rate from the austenit- 
ization temperature ), from po lygonal/acicul ar ferrite at 
high cooling rates ( thin plates ) to a polygonal ferrite 
matrix with dispersed groups of cementite particles for 
slower cooling rates ( thicker plates ) [Ref. 10:pp. 7-12], 
Steels with acicular ferrite microstructures exhibit much 
higher strength than those with polygonal ferrite 
microstructures [Ref. 13]. Acicular ferrite, synomymous with 
bainitic ferrite, differs from polygonal ferrite in that 
acicular ferrite exhibits lath like ferrite grains 
containing a high dislocation density. A key addition to 
HSLA - 100 is niobium. Its addition to these copper bearing 
steels is primarily for grain size refinement. This is 
accomplished in two ways, by the precipitation of niobium 
carbonitrides during the austenitization (class 3 plates) 
process and by retarding austenite recrystallization during 
hot rolling [Ref. 12:pp. 656-659]. Niobium also provides some 
precipitation hardening effect. 

In these steels the potential problem of hot shortness, 
the formation of low melting point copper rich phases which 
can cause fissured surfaces during thermal mechanical 
processing, is prevented by nickel additions to copper 
bearing steels. However, the primary reason nickel is added 



to these steels is its beneficial effect on toughness. As 
with niobium, a strength increase is also observed with 
nickel additions. Finally, since nickel remains with copper 
during remelting, scrap can be used in melts of other steels 
without the potential harmful effects of copper alone [Ref. 
14 ]. 

Chromium and molybdenum are necessary to retard the 
epsilon copper precipitate nucleation and growth, during 
quenching form the austenitizing temperature, known as auto- 
aging. This enables closer control of the finished product 
and thus more consistency in mechanical properties. [Ref. 
15) 

Manganese, as with chromium and molybdenum helps to 
suppress polygonal ferrite formation, thus adding 
transformation substructure strengthening to these steels' 
overall strengthening components [Ref. 10: pp. 3-4]. 
Manganese increases the hardenabi 1 i ty of HSLA steels as it 
does conventional steels. 

Silicon is added as a deoxidizer and the aluminum 
present acts to enhance grain refinement. Impurity elements 
such as phosphorous and sulfur are kept to a minimum by 
direction in the military specification for HSLA - 80. The 
concern with phosphorous is embrittlement caused by the 
formation brittle iron and nickel phosphides [Ref. 1: p. 
98). Sulfur is kept as low as possible because a steel's 
susceptabi 1 ity to lamellar tearing is proportional to the 
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sulfur content [Ref. 16). This is accomplished by a low 
sulphur practice such as vacuum degassing and argon 
injection with CaSi or Mg for sulfide shape control, as 
specified in Appendix B. 

C. INFLUENCE OF HEAT TREATMENT ON HSLA STEEL PROPERTIES 

The ASTM heat treatment applicable to the copper 
bearing HSLA steels discussed herein is Class 3 ( quenched 
and precipitation hardened). For HSLA - 00 the austenitizing 
temperature range is 070 to 970 C (1600 to 1700 F) . After 
water quenching, approximately 450 Mpa ( 65 Ksi ) of 
the total expected 550 MPa (60 ksi) yield strength is 
attained. Precipitation hardening at 540 to 665 C ( 1000 to 
1225 F) supplies the remaining portion of the desired yield 
strength. This precipitation strengthening more than offsets 
any softening occuring at the precipitation heat treatment 
temperature. [Ref. 12: p. 656) 

1 . Temperature effect on precipitation hardening 

In order to achieve the desired levle of strength, 
toughness and weldability of the precipitation hardenable 
steels, various aging temperatures/times are used. There are 
three ASTM classifications for precipitation hardenable 
steels. Class 1 desiginated as-rolled plus precipitation 
hardened, yields the highest strength levels. Class 2 is 
normalized plus precipitation hardened, this produces a 
lower strength than Class 1 but improved toughness. Class 3 
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is quenched plus precipitation hardened, this Class provides 
the best overall level of toughness with strengths 
comparable to Class 1. As noted earlier a Class 3 
precipitation heat treatment is required to provide the fine 
grained acicular ferrite microstructure. Jesseman and Murphy 
[Ref. 12:pp. 656] note that at this stage of production "the 
relatively soft as-rolled, as-normalized or as-quenched 
conditions have good ductility and moderate toughness. Cold 
forming at this stage is sometimes advantageous because 
lower press capacities are required. " Then precipitation 
heat treating can ameliorate the effects of straining and 
aging on toughness. It is noteworthy that post weld 
precipitation hardening can serve as a simultaneous stress 
relief thus reducing overall fabrication costs [Ref. 3:pp. 
445 - 449 ]. Since diffusion of copper in ferrite is involved 
in the strength determination of these steels, both the time 
and the temperature of the precipitation heat treatment is 
important. Jesseman and Murphy [Ref. 12: pp. 657-658] 
concluded that treating above 565 C (1050 F) produced a 
gradual softening. The rate of this softening was slow, due 
to the additions of molybdenum and chromimum, and thus 
easily controllable. Additionally, raising the precipitation 
heat treatment temperature to 595 C (1100 F) or above 
markedly improved CVN impact energy in Class 2 and Class 3 
plates. 
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2 . 



Time effect on precipitation hardening 



The mechanical properties of copper bearing HSLA 
steels are largely determined by the size and amount of the 
epsilon-copper precipitates. These in turn are governed by 
the aging treatment. The workers in Reference 17 report that 
overaging is desirable. Overaging promotes high toughness 
and it reduces the sensitivity of the steel to additional 
heating below the austenitizing temperature which could 
occur during welding or bending/shaping operations. Also, 
overaging was reported to lead to high toughness. Testing 
reported in Reference 12 revealed that the effect of time at 
aging temperature was notably less significant than the 
effect of temperature itself. Similar results were reported 
in Reference 17, where Class 3 steels only underwent a small 
change in properties when the aging time was varied thirty 
minutes at 899 C (1650 F). Several papers in the Conference 
Proceedings of International Conference on Technology and 
Applications of HSLA Steels 3-6 October 1983 Philadelphia, 
Pennsylvania noted that degraded mechanical properties were 
restorable by reaustenti zation and aging treatment. 
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II. 



BACKGROUND 



A. STRESS - STRAIN RELATIONSHIPS 

Many mathematical formulations have been developed to 
relate stress and strain in metals. Historically the 
relations developed attempted to relate stress - strain 
behavior from the onset of loading to the point of fracture. 
No single relation has gained universal acceptance due to 
problems associated with describing elastic and plastic 
behavior in a single equation. As a result, although many 
expressions have been developed since Hooke's law was 
introduced in 1676, many are of limited utility [Ref. 18]. 

When a material has experienced plastic deformation the 
linear relationship between stress and strain, described by 
Hooke's law, is no longer applicable. Figure 2 depicts a 
general stress - strain diagram for a material without a 
pronounced yield point [Ref. 19]. The figure depicts the 
elastic region and two regions of plastic deformation. In 
the elastic range stress is directly related to strain 
through a constant of proportionality. Hooke's law can be 
expressed as: 

S : E e 

Where S is the applied stress and e the engineering strain 
is the change in specimen length divided by the original 
length. The constant of proportionality, E, is a measure of 
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Figure 2. True Stress-True Strain Curve for a 
Metal without a Pronounced Yield 
Point 



the materials stiffness and is referred to as Young's 
modulus or the modulus of elasticity. Once the yield stress, 
generally taken to be the stress necessary to produce 0.2/. 
plastic strain, is exceeded the load necessary to produce 
further plastic deformation increases. The material is then 
undergoing strain hardening, by plastic deformation. In this 
region between the yield stress and the onset of specimen 
necking stress has been related to strain by expressions 
such as the Holloman equation [Ref. 20], as shown in Figure 
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2. The range of nonuniform plastic deformation begins when a 
localized neck develops in the weakes portion of the 
specimen. This neck causes a decrease the specimen cross- 
sectional area; thus resulting in a decrease in load. The 
load reaches a maximum at the onset of necking, because the 
decrease in cross-sectional area offsets the strengthening 
produced by strain hardening. In this region of the curve 
the relation between stress and strain becomes more 
complicated to express mathematically. The development of 
the neck causes a triaxial stress state to exist instead of 
uniaxial tension that existed up to the point of necking. In 
describing the relation between stress and strain in this 
region the stress resulting from the triaxial stress state 
must be accounted for. [Ref. 19: pp. 4-21] 

In recent years, attention has focused on the 
development of analytical expressions for stress and strain 
in the region between the yield stress and the point where 
necking commences [Ref. 21]. A simple and commonly used 
expression relating stress and strain for a polycrystalline 
metal is the Holloman power function [Ref. 20: p. 374]. 

n 

(7 = K e 

Where a is the true stress and € the true strain. K is a 
constant, representing the true stress at a true strain of 
unity, called the strength coefficient. When logarithms of 
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this power function are taken and true stress plotted versus 



true strain a 
the 1 ine has 
Conway [Ref. 
calls for the 
be observed 
research the 
true plastic 



straight line fit is predicted. The slope of 
a value of n, the strain hardening exponent. 
21: p. 156] notes that, although the equation 
use of true strain, "more consistency seems to 
when true plastic strain is used". In this 
Holloman equation has been tested using the 
strain data obtained in testing HSLA- 100. 



B. INFLUENCE OF TEMPERATURE ON TENSILE PROPERTIES 

The strain hardening exponent, n, is a function of 

the materials strength level, chemical composition, and 

microstructure [Ref. 21: p. 157]. A high yield strength is 
achieved when dislocation motion is impeded initially. 
Dislocation motion is impeded by obstacles to their movement 
such as precipitates, impurities and other dislocations. 
Precipitates and impurities distort an otherwise perfect 
lattice and set up stress fields on the atomic level. When 
these stress fields interact with the stress field 

surrounding a dislocation its motion is impeded. Solid 

solution and precipitation strengthening are examples of 
mechanisms which take advantage of these stress field 
interactions to pin dislocations and thus strengthen a 
material. In addition to the above mentioned obstacles to 
dislocation motion, there is an inherent resistance within 
a crystal lattice to dislocation motion. This resistance is 
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termed the Peierls force and it is strongly related to the 



directionality of bonding of the material. A moving 
dislocation causes bond angle distortions. Covalent and 
ionic materials are strongly directional in their bonding. 
The bond angle distortion necessary for dislocation motion 
in these materials is thus difficult to overcome. In these 
materials the Peierls force is the primary obstacle to 
dislocation motion even when lattice vibration energy is 
enhanced at high temperatures. Body centered cubic materials 
develop a directional bonding component at low temperatures. 
The movement of dislocations in body centered cubic 

materials is thus strongly inhibited at low temperatures 
by the Peierls force. This effect is nullified at high 
temperatures where thermally enhanced atomic vibration 
overcomes the effect of the Peierls force. It is therefore 
expected that yield strength of HSLA - 100, a body centered 
cubic material, will exhibit rapidly increasing yield 

strength with decreasing temperature. An increase in yield 
strength in this manner will influence the strain hardening 
exponent. Figure 3 [Ref. 19: p. 33) illustrates this effect 
for molybdenum a body centered cubic material. [Ref. 22] 

C. INFLUENCE OF STRAIN RATE ON TENSILE PROPERTIES 

Strain rate can markedly affect the relationship between 
stress and strain in a similar way to temperature. 
In general the strain hardening exponent increases with 
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Figure 3. Strain Hardening Exponent of 
Molybdenum as a Function of 
Temperature 



increasing strain rate [Ref. 21: p. 157], With conventional 
tensile testing machines, where a constant loading rate is 
is imposed on specimen, the effect of necking is to increase 
the strain rate locally. The reduced cross-sectional area in 
the neck increases the strain and, as the loading is at a 
constant displacement rate, the strain rate increases. The 
rate of change of the strain rate continues to increase as 
the cross-sectional area decreases throughout the test. 
Tegart states that "the problems associated with necking are 
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accentuated at high, testing speeds because adiabatic heating 
becomes localized in the necked region" [Ref. 19: pp. 37-38]. 
The experimental approach used in this research allows a 
tensile test to be conducted at constant strain rate. The 
rate of specimen diameter change, a direct measure of strain 
rate, is the controlling variable. Hourglass shaped 
specimens are used to ensure necking occurs at the minimum 
diameter. A diametral extensometer, fitted to the minimun 
diameter, continually follows the minimum specimen cross- 
section, providing feedback to the controlling system in 
order to maintain the constant rate of change of specimen 
diameter. 

D. SCOPE AND OBJECTIVES OF PRESENT WORK 

The nominal composition for HSLA - 100 steel is listed 
in Appendix A. Increased amounts of copper, nickel and 
manganese over that in the currently certified Navy steel 
HSLA - 80 provide the desired increase in yield strength, 
but before using this material in Naval ship construction, 
the resistance to brittle fracture must be evaluated and 
understood. Existing models for cleavage fracture of steels 
use the ever present iron carbides as crack initiation 
sites. However, the low carbon content (0. 04Y.) of HSLA - 100 
necessitates research to develop an applicable model. [Ref. 
23] 
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Three regions of fracture behavior, ductile, transition 
and brittle, occur in steels [Ref. 23]. The terms ductile 
and brittle describe the amount of plastic deformation 
occunng at the tip of a crack propagating in a the steel. 
Ductile behavior, resulting from the nucleation, growth and 
coalesence of microvoids, is characterized by significant 
levels of plastic deformation ahead of the crack tip. In a 
brittle fracture very little plastic deformation at the 
crack tip is evidenced. In the tensile testing of steels, 
ductile behavior is observed above a certain critical 
temperature, and cleavage, primarily a brittle process, is 
observed below the critical temperature. The critical 
temperature is termed the Ductile to Brittle Transition 
Temperature (DBTT). [Ref. 25] 

The transition from ductile to brittle fracture behavior 
occurs over a range of temperature in which the fracture is 
neither completely ductile nor completely brittle. As a 
ductile failure is normally preceeded by pronounced yielding 
it is desirable to have a low transition temperature. This 
precludes failure in a brittle manner, where cracks can 
propogate catastrophically. As strength levels in a metal 
are raised, by various means, there is a corresponding loss 
in the materials ductiliy. The loss of ductility leads to 
the fracture mode transition from ductile to brittle. Thus 
as strength increases, the DBTT for a given metal usually 
increases. 
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The DBTT for a particular steel is dependent on factors 



such as the chemical composition, microstructure, and 

crystal structure of the steel, as well as the temperature, 
state of stress, and strain rate at which it is tested. The 
chemical composition, effects of microalloying additions, 
and microstructure of HSLA - 100 are discussed with an 
emphasis on strengthening in the introduction to this work. 
With respect to DBTT, the effects of individual alloying 
elements is difficult to evaluate. However, in general 

nickel is observed to improve toughness and lower DBTT in 
steels containing less than 0.40/. carbon. Interstitial atoms 
such as carbon and nitrogen can pin dislocations thereby 
increasing yield strength. Increasing the amount of these 
atoms present produces a loss of ductility and an increase 
in DBTT. The effect of the Peierls force on the yield 
strength of body centered cubic materials as temperature 
is decreased is discussed above. The increased yield 

strength of body centered cubic metals at low temperatures 
causes ductile to brittle transition. When the stress 
necessary to cause dislocation motion exceeds that for 
cleavage, brittle fracture results. Similarly, increasing 

the strain rate promotes brittle fracture because 

materials which exhibit a strongly increasing yield strength 
with decreasing temperature also exhibit an increasing yield 
strength with increasing strain rate [Ref. 22:pp. 211-214]. 

In order to remove the effect of increasing strain rate on 
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DBTT, the tensile tests m this research were conducted at 
constant strain rates as discussed previously. [Ref. 26] 

The first phase in the fracture model development is to 
examine the quasi-static fracture behavior of HSLA 
100 steel. The objective of the present work is to develop 
the true stress - true strain tensile curves as a function 
of temperature. This information will be later used in a 
finite element analysis of the crack tip fracture behavior 
of this material. 
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III. 



EXPERIMENTAL PROCEDURE 



A. MATERIAL 

Appendix A lists the interim material specifications for 
trial commericial production of HSLA - 100 steel plates. A 
32mm (1-1/4 inch) thick plate of HSLA - 100 steel (Plate # 
5644-16B) meeting these specifications was prepared by the 
supplier. The plate was provided to the Naval Postgraduate 
School for examination by David Taylor Naval Ship Research 
and Development Center. The plate was heat treated by 

the supplier by austenitizing at 949 C (1650 F) for 70 
minutes and water quenched; and subsequently aged at 615 C 
(1050 F) for 70 minutes and water quenched. This resulted in 
the strength properties reported in Table I, according to 
the supplier. 

TABLE I 

STRENGTH PROPERTIES OF PLATE # 5644- 16B (AS REPORTED BY 

THE SUPPLIER) 

U1 timate 

Yield Tensile 

Strength Strength 
(Ksi) (Ksi ) 



Top 

Transverse 


101 


147 


22 


65 


Bottom 

Transverse 


106 


139 


23 


65 



X Reduction 

X Elongation in area 
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B. TEST APPARATUS 



In this research tensile tests were conducted with a 
Material Test System (MTS) 810 apparatus. On this system the 
loading is provided via a hydraulic actuator and grip 
assembly to a threaded specimen receptacle. A diametral 
extensometer was used to measure diametral diaplacement 
which was used as the test controlling variable. Load cell 
and extensometer output voltages were monitored by a digital 
voltmeter. The output voltages are converted to load and 
diametral displacement by a computer program. The computer 
program for collection of output data is listed in Appendix 
C. The frequency of sampling the output voltages by the 
digital voltmeter is determined by the collection program. 
If the user selects no additional delay between samplings 
the voltmeter is triggered by the computer to sample the 
output voltages from the MTS 810 at approximately 4 
samplings per second. Thus when monitoring load, diametral 
displacement and hydraulic actuator piston stroke, all three 
channels from the MTS 810 can be sampled at least once a 
second. The program allows the flexibility to input an 
additional delay between samplings. In the testing conducted 
for this research no additional delay was requested for the 
first 50 samplings on all tests. In the intervals between 51 
to 200, 201 to 400, and 410 to 500 nominal sampling delays 
were zero, 1 and 5 seconds respectively. The equipment used 
to conduct the tensile tests, collect, reduce and display 
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the output data are as follows: 

1 . MTS Closed-loop El ec trohydraul ic Testing System 

a) MTS Model 312.41 Load Frame 

b) MTS Model 661. 21A -03 Load Cell (25 Kip) 

c) MTS Model 410. 31 Function Generator 

d) MTS Model 506.20 Hydraulic Power Supply 

2. MTS Model 651. 1XA Enviromental Chamber (Modified) 

a) MTS Model 409 Temperature Controller 

b) MTS Diametral Extensometer Model 632. 19B-21 
(Modified) 

c) MTS Extensometer Model 613. 20B 

3. Hewl i tt-PacKard Data Acquisition System 

a) 9626 Computer 

b) 3497A Data Acquisition Control Unit (DVM) 

c) 3437A System Voltmeter 

d) 2617G Printer 

e) 7225B Plotter 

Figures 4a and 4b, are photographs of the testing system 
and Figure 5 is a photograph of the acquisition and 
reduction system used in this research. Figure 6 illustrates 
the enviromental chamber as modified. The enviromental 
chamber was modified to allow either liquid carbon-dioxide 



or liquid 


nitrogen 


to be 


used 


as the 


cool ing 


medium. 


An 


operators 


checklist 


and a 


detailed operational 


sequence 


to 


conduct constant strain 


rate 


tensile 


test are 


1 isted 


in 



Appendix B. 

C. SAMPLE PREPARATION 

The plate, once received at the Naval Postgraduate 
School was cut and machined into tensile test specimens. Two 
uniform gage-length specimens were made in accordance with 
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Figure 4. Experimental Test Equipment (a). Enviromental 

Chamber Mounted on Load Frame, with an hourglass 
Specimen Installed in Hydraulic Actuator Grips 
(b). MTS 810 Electronic Equipment Console 





Figure 5. Hewlitt Packard 9826 Computer and 
Data Acquisition System 



Figure 7. Twelve hourglass shaped specimens were made in 
accordance with Figure 8. The samples were cut from the 
plate parallel to the rolling ( longitudinal ) direction in 
all cases to ensure the consistency of the results. The 
hourglass specimen design was selected to ensure that 
fracture occured at the minimum specimen diameter where the 
strain is measured continously from test start to fracture 
by using a diametral extensometer. The data thus obtained 
could then be used to determine the appropriate constitutive 
equation for this material as a function of temperature. 
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1 - 25 kip lood Cell 

2- Lood Cell Extension 

3- Actuotor Extension 

4- Thermol Hydroulic Grip 

5- Diametral Extensometer 

6- Extensometer Mount 



7- Extensometer Electrical Hook-up 

8- Thermal Couple Junction Box 
9 - Seal 

10- Spirol Washers 
1 1 - Actuotor 
12-Hourgloss Specimen 



Figure 6. Enviromental Chamber, as Modified 
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Figure 7 . Uniform Gage-iength Tensile Specimen Dimensions 



NOTES' I. All dimensions in inches. 
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Figure 8. Hourglass Tensile Specimen Dimensi 



D. COLLECTION, REDUCTION AND DISPLAY OF THE OUTPUT DATA 

During a test, data is collected by the acquisition 
system using the program "JHCOLLECT", Appendix C lists this 
program. Upon completion of a tensile test the program 
allows the renaming of data files. The data files are 
generic in nature and are renamed after each test run with 
an appropriate specimen number, 1 . e. lodl, Dial etc. 
Appendix D lists the data reduction program "JHREDUCE" . 
Running this program computes true strain/strain, log true 
stress/log true strain, corrected true stress/strain, 
plastic strain, log corrected true stress/true plastic 
strain and stores these values in arrays. The array names 
match the specimen numbers i. e. Stressl, Strainl. Appendix E 
lists the plotting program "JHPLOT". Running this program 
allows graphs of the array values stored by "JHCOLLECT" and 
"JHREDUCE". Appendix F lists the program "POWERFIT”. Running 
this program plots the log corected true stress vs the log 
plastic true strain from the stored array values. 
Additionally, the strength coefficient, K, and strain 
hardening exponent, n, for the Hollomon power function are 
determined [Ref. 20: pp. 374-375]. Using the computed values 
of slope n and intercept log K a line is plotted between 
true plastic strain values of . 001 and 1.0. A correlation 
coefficient, R, for the power function is determined by the 
powerfit program using a least squares approximation. The 
correlation coefficient compares the fit between the log 
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strain plot 



corrected true stress versus log true plastic 
and the line generated using the power law coefficients 
determined. 

E. TEMPERATURE MEASUREMENT AND CONTROL 

Temperature measurement in this research was accomplished 
using chrome 1 /alume 1 thermocouples. Chrome 1 /alume 1 

thermocouples are useful over the temperature range -200 to 
1300 C. Their uncalibrated accuracy is + 3 C in the range 0 
to 400 C [Ref. 27). Many thermocouples normally used for 
high temperature monitoring show a decreasing temperature 
sensitivity with deceasing temperature. For chrome 1 /alume 1 
thermocouples below approximately -130 C the temperature/ 
voltage relation displays this decreasing sensitivity [Ref. 
28). The use of a known fixed temperature reference 
junction, near the measured temperature, is used to improve 
accuracy. Several thermocouples were tested in an ice water 
bath, zero degrees centigrade, and all indicated 0 C, this 
verified the calibration of the Newport temperature 
monitoring device. Additionally, the thermocouples were 
calibrated at -196 C using liquid nitrogen. 

Two chrome 1 /alume 1 thermocouples per test sample were 
used in the sub zero tensile tests conducted in this 
research. The samples were spot welded to the hourglass 
specimen, Figure 8, approximately 0. 35 inches on each side of 
the specimen minimum diameter. 
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Low temperature tests were initially carried out using 



the MTS model 409 temperature controller. The controller 
activated a solenoid to either admit or stop the flow of 
liquid nitrogen to the enviromental chamber. The controller 
uses a thermocouple to compare sensed temperature with a 
manually adjustable setpoint. The coolant flow entered 
through the back of the chamber, by plastic tubing, and was 
then directed either on the specimen or the actuator grips. 
This arrangement was satisfactory for tests in which the 
lowest temperature achievable was desired. Once the specimen 
thermocouples were stable, at essentially liquid nitrogen 
temperature, the tensile tests were conducted while 
maintaining the flow of coolant to the chamber. This method 
of cooling the samples was not used for test temperatures 
between room temperature and liquid nitrogen temperature. In 
this range the on/off action of the so 1 enoid/contro 1 1 er 
caused the temperature to vary as the coolant flow pulsed on 
and off. Additionally, the pulsing of coolant flow on the 
diametral extensometer produced an error signal from the 
extensometer which prevented starting the hydraulic system. 
This is a result of the difference in temperature of the 
extensometer and that of the liquid nitrogen. To conduct the 
tensile tests at temperatures below room temperature and 
above liquid nitrogen temperature the coolant flow system 
was modified. Figure 9, is a photograph of the inside of the 
enviromental chamber with the modified coolant system in 
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Figure 9. 



Enviromental Chamber 
Coolant System 



interior, 



Showing Modified 
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place. Liquid nitrogen is directed by tubing to machined 
paths in the actuator grips. Thus, without coolant flow 
directly on the specimen, the sample is cooled by conduction 
from the grips to the desired test temperature. Once the 
temperature has stabalized, the flow of liquid nitrogen to 
the grips can be stopped and the grips provide a heat sink 
to maintain the sample at the desired test temperature. The 
thermocouples were monitored throughout each tensile test; 
and the average is reported as the test temperature. 

F. MICROSCOPY 

1. Optical Microscopy 

A polished and etched (27. nital) HSLA - 100 sample 
was photographed using a light microscope. Figure 10 (a) 

and Figure 10 (b) are representative of the microstructures 
observed. The microstructure is predominatly banitic and was 
uniform throughout the thickness of the plate, except for 
regions of increased grain size near the plate edges. 

2. Scanning Electron Microscopy 

The scanning electron microscope (SEM) was used to 
examine the HSLA - 100 tensile specimen fracture surfaces 
after testing. A discussion of the typical fracture surface 
and micrographs is presented in the results section. 

3. Transmission Electron Microscopy 

Figure 1 1 is a representative thin foil micrograph 
of the HS1A - 100 steel used in this research. The 
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Figure 10. Light Micrographs of HSLA - 100 

Steel (a). Microstructure at 500X 
(b). Microstructure at 1000X 
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Figure ll. Thin Foil Transmission Electron Micrograph 
of HSLA - 100 Microstructure 



microstructure is characterized by elongated parallel laths, 
less than 1 micron in width, containing a very high 
dislocation density. In addition, a uniform distribution of 
very fine niobium carbonitr ides was also observed. 
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IV. RESULTS AND DISCUSSION 



A. MEASUREMENT OF TRUE STRESS 

Once a tensile test specimen begins to neck a tnaxial 
stress state exists at the minimum cross-section, Figure 2. 
In order to obtain the true stress in the specimen a 
correction for this must be applied to the measured stress. 
Tegart discusses various expressions for the stress state 
in the neck but comments that the Bridgman correction 
most accurately estimates the degree of stress concentration 
[Ref. 19: pp. 21]. The Bridgman correction can be expressed 
as [Ref. 29]: 

^IV 

~ (1 f 2 + rj2£)] 

where the measured average stress U av is reduced to a 
corrected value o . R is the radius of curvature of the neck 
and r n is the radius of the cross-section at the neck. 

The initial radius of curvature of the hourglass section 
of the specimen used in this study is 1. 1 in. ; this results 
in an initial correction of 0. 972 cr av . The objective of this 
research was to measure true stress and true strain from the 
onset of loading to the point of fracture. Thus this initial 
correction has been applied to the true stress up to the 
onset of necking. Once a test was completed the final radius 
of curvature was measured by first fitting the specimen 
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back together and magnifying the necked region with an 
overhead projector. Then comparing the fit of various 
circular templates to the projected image produced the final 
radius of curvature (when divided by the magnification 
factor). This value along with the measured final cross- 
section radius allowed determination of a final correction 
factor for each test specimen. In order to gradually change 
the magnitude of the Bridgman correction from the onset of 
necking to fracture, a linear relation was developed between 
the value at the onset of necking and the fracture point 
for each specimen. This relation was then applied to the 
measured true stress values after the maximum load was 
reached. The justification for using a linearly changing 
correction factor derived from the fact that the tests were 
conducted with a constant diametral displacement rate. The 
computation of the linear relation for the correction factor 
and its application to individual points is accomplished by 
the data reduction program, Appendix D. 

B. MEASUREMENT OF TRUE STRAIN 

The true strain was determined using an MTS model 
632. 19B-21 diametral extensometer. Figure 12 shows a typical 
series 632. 19B adjustable diametral extensometer and lists 
the operating characteristics based on specific model 
number. The extensometer contacts, shown more clearly in 
Figures 13 and 14, were not capable of following the 
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MODEL 632. 19B ADJUSTABLE 
DIAMETRAL EXTENSOMETER 




Model:- 


i 632. I9B-20 


632. 1 9 B -21 


632. 19B-23 


Gage Diameter Adjustment 


3, 6 mm to 1 3 mm 
0. 140 in, to 0 . 520 in. 


3, 6 mm to 1 3 mm 
0. 140 in. to 0.520 in. 


3, 6 mm to 1 3 mm 
0.140 in. to 0.520 in. 


Maximum Range 
( Diametral) 


*1. 0 mm 
±0 . 040 in. 


*1,0 mm 
*0.040 in. 


*1,0 mm 
*0. 040 in. 


Luneanty*“ 


0. 25ft of range 


0. 25ft of range 


0.25ft of range 


Maximum Hysteresis 


0. 3ft of range 


0. 3ft of range 


0. 3ft of range 


Temoerature Range 


- 1 1 5 * F to ♦ 250 *F 


-4 50 * F tn ♦ 150*F 1 


| -450*F to * 350*F 


Imme r sibiiitv • •• 


Yes 


Yes 


Yes 


Max Operating Freq with 
Negligible Distortion 


100 Hz 


100 Hz 


100 Hz 


Effective Inertial Mass 


45 grams 


45 grams 


63 grams 


Approx Clamp Force 
on Soecimen 


250 grams min 
325 grams max 


250 grams min 
325 grams max 


250 grams min 
325 grams max 


Recommended Calibrated 
Ranges for 10V full scale 
output from MTS Trans- 
ducer Conoitioner •••• 


*0.040 in. / *1 , 0 mm 
*0.020 in./±0.5 mm 
•*0.008 in./ *0,2 mm 
*0.004 in. /*0, 1 mm 


*0.040 in./ *1,0 mm 
*0.020 in./*0, 5 mm 
*0.008 lo./*0,2 mm 
*0. 004 in. / *0. 1 mm 


*0.040 in./*l,0 mm 
*0.020 in./*0, 5 mm 
*0.008 in./*0,2 mm 
*0. 004 m. / *0. 1 mm 



•AU model* include case, instruction muiu«l, and mating connector (Amphenol 165-14). 

••Wheo calibrating over a range from tension to compression. Linearity is somewhat degraded: however, 
this is electronically compensated to the stated value by the recommended MTS Transducer Conditioner 
modules . 

•••Immersible in most fluids used for specimen heating and cooling, including alcohol, acetone and 
silicone fluid*. 

••••Recommended Traosducer Conditioners: 440.21, 425.41 (option B), 406 (option A). Other conditioners 
may ae useo (maximum excitation is 12v, output is approximately 3mv/v). 

Figure 12. Model 632. 19B Diametral Extensometer 
and a Table of Specific Model 
Operating Characterist ics 



diametral displacement once necking produced a radius of 
curvature below .5 inches. The contacts were modified to 
allow the measurement of strain up to the minimum radius of 
the neck which preceeded fracture. Figure 15 is a photograph 
of the extensometer contacts after modification. The 
limited range of accurate unmodified extensometer travel is 
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Figure 13. Typical Series 632 Adjustable Diametral 
Extensometer - Attatchment to Specimen 



reflected in Figure 16, the load vs. 
curve for hourglass specimen number 4. 
displacement curve for hourglass 
illustrates the improved range of 
displacement once the extensometer was 



diametral displacement 
Figure 17, the load 
specimen number 5, 
measuring diametral 
modified. 
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Figure 14. MTS Diametral Extensometer with 
Mounting Assembly and Electrical 
Connection 

C. DETERMINATION OF THE MODULUS OF ELASTICITY 

The value of the modulus of elasticity or Young's 

modulus for the HSLA - 100 steel tested in this research was 

determined experimentally. The test of hourglass specimen 

number 4, Figure 16, indicated yielding occured for loads 

above approximately 5. 5 Kips. A uniform gage-length specimen 

equiped with an axial extensometer was loaded to 4 Kips in 

-3 

load control at a rate of 4 x 10 Kip/sec. The specimen was 

loaded to 4 Kips then returned to zero load at the same 

rate. This was done twice and the value of Young's modulus 

determined by the slope of the stress - strain curve 

generated by an X - Y recorder. The average value of Young's 

6 

modulus for the two tests is 2. 414 x 10 psi. This value was 
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SCALE IN INCHES 

L.. » i 4 1 -* • - l--'- ^ i -* *,**+., f,...4lr — »-r 

1.2 3 4 ! 



— * 

unmodified contact arms 




modified contact arms 



Figure 15. Model 632. 19B-21 Diametral Extensometer Contacts 
(Unmodified and Modified) 
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HSLR-100 HOURGLRSS 
SPECIMEN NO. 4 
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HSLfl-100 HOURGLASS 
SPECIMEN NO. 5 
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then used 



along with the corrected true stress in the 



determination of the true plastic strain, as follows: 

€p = € t - a/E 

where e p is the true plastic strain, e t the total true 
strain, a the corrected true stress and E is Young's 
modulus. 

D. TENSILE PROPERTIES OF HSLA - 100 STEEL 

Table II summarizes the mechanical properties for HSLA - 
100 resulting from this research. The test temperature for 
hourglass specimen no. 6 was taKen as the average of the 
test start and test complete temperatures. There was a 36 C 
change in temperature from test start to specimen failure as 
the coolant supply exhausted prior to starting the test and 
prior to the actuator grips/extensions equilibrating at the 
desired test temperature. In all other tests the test 
temperature, taken as the start/finish average, varied less 
than + 10 C from the start to finish. 

In comparing the results reported by the plate 
manufacturer listed in Table II with those obtained in this 
study Table I, an obvious difference exists. The uniform 
gage- length samples from this study exhibited comparable 
values for percent reduction in area ( /. R/A) and ultimate 
tensile strengths (UTS) to those reported by the supplier. 
However, the . 2X offset yield strength values are much 
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higher and the X elongation is much lower than reported by 



the supplier. The unexpectedly high yield strength results, 
of the room temperature tensile tests were reported to the 
project liaison at David Taylor Research and Development 

TABLE II 



STRENGTH PROPERTIES OF HSLA - 100 PLATE # 5644- 16B (AS 
DETERMINED IN THIS RESEARCH) - HOURGLASS SPECIMEN 



No. Average 


Yield 


Ultimate 


Elongation 


Reduction 


Test 


Strength 


Tensi 1 e 


in 1 inch 


in Area 


Temperature 
(deg C) 


(Ksi ) 


Strength 

(Ksi) 


(X) 


(•/•) 



1 


21 


a 


a 


N/A 


63. 0 


2 


21 


127. 0 


156. 9 


N/A 


b 


3 


20 


a 


a 


N/A 


62. 7 


4 


20 


126. 0 


156. 7 


N/A 


59. 6 


5 


24 


130. 8 


156. 1 


N/A 


63. 7 


6 


-109 


159. 0 


177. 2 


N/A 


*48. 8 


7 


-176 


184. 2 


201. 2 


N/A 


27. 0 


8 


-196 


a 


a 


N/A 


27. 0 


9 


-72 


146. 8 


164. 1 


N/A 


62. 3 


10 


-27 


137. 2 


159. 3 


N/A 


64. 7 


1 1 


-150 


167. 7 


184. 2 


N/A 


*54. 5 


12 


-129 


156. 7 


177. 0 


N/A 


*55. 9 




UNIFORM 


GAGE -LENGTH 


SPECIMEN 






1 


23 


132. 7 


142. 6 


12. 3 


68. 6 


2 


22 


130. 4 


142. 6 


16. 4 


68. 6 



a - no data collected. 

b - specimen not tested to the point of fracture. 

* - specimen didnot fail at the minimum diameter. The X R/A 
in the table is based on the specimen minimum diameter 
and is therefore a conservative (low) value. 



Center, Mr. M. Vassilaros. Subsequent conversation with Mr. 
Vassilaros revealed that the plate received at the Naval 
Postgraduate School had not been heat treated properly and 
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that yield strengths above those in the interim HSLA 



100 



specification should be expected. 

In addition to the load versus diametral displacement 
curves, as shown in Figures 16 and 17, the reduction and 
plotting programs, Appendices D and E respectively, allow 
other useful curves to be generated. The next several 
figures will provide a sample of the various plots and serve 
to compare the results at room temperature to a test at 
- 176 C. 

The true stress - true strain curves at room temperature 
and -176 C are shown m Figures 18 and 19 respectively. Note 
the marked increase in true stress and corresponding 
decrease in ductility in the -176 C temperature test. As 
expected, the strength is higher and ductility lower at -176 
C than at room temperature. Figure 20, applies the linearly 
varying Bridgman corrected true stress to the results shown 
in Figure 18. The maximum correction to the true stress for 
the tnaxial stresses in the necked region of this sample is 
0. 955. The maximum travel (0. 072) of the diametral 
extensometer was too small to follow the deformation process 
to the fracture point, the fracture point is plotted as an 
asterisk. The decrease in ductility at low temperatures, 
Figure 21, allowed the extensometer to follow the 
deformation process to the fracture point. The log true 
stress-log true strain curves for room temperature and -176 
C are shown in Figures 22 and 23. When the true stress is 
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HSLR-100 HOURGLASS 
SPECIMEN NO. 5 
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Figure 18. True Stress - True Strain Curve for Hourglass 
Specimen No. 5, Tested at Room Temperature 



HSL0-100 HOURGLnSS 
SPECIMEN NO. 7 




c 

\ 

c 



c 

fd 

+> 
( s J 

03 

3 

L. 

i— 



ca 


in 


a 


in 


a 


in 


a 


in 


CD 


in 


Q 


in 


CD 


a 




in 


CVJ 


S3 


rw 


in 


CVJ 


S3 


rw 


in 


OJ 




n 


CVJ 


CVJ 


CVJ 


CVJ 


— • 




*— • 













l s>| 4 SS3J an j j_ 



53 



Figure 19. True Stress - True Strain Curve for Hourglass 
Specimen No. 7, Tested at -176 C 



HSLR-100 HOURGLASS 
SPECIMEN NO. 5 
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HSLR-100 HOURGLRSS 
SPECIMEN NO. 7 
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Figure 21. True Stress (Corrected for Necking) - True Strain 
Curve for Hourglass Specimen No. 7, Tested at 
-176 C, * Indicates Fracture Point 
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Figure 22. Log True Stress - Log True Strain Curve 
glass Specimen No. 5, Tested at Room Te; 
* Indicates Fracture Point 
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Figure 33. Log True Stress - Log True Strain Curve for Hour- 
glass Specimen No. 7, Tested at -176 C, * 
Indicates Fracture Point 



corrected for initial specimen geometry and tile triaxiality 
associated with necking the resulting curves, Figures 24 and 
25, reflect a lowering of the log true stress values. The 
reduction in corrected log true stress values over the 
uncorrected values increases with increasing strain due to 
the decreasing radius of curvature in the necked area. The 
log true strain values in Figures 22 through 25 are total 
true strain. By subtracting the elastic strain from the 
total true strain an approximately linear true stress - true 
plastic strain results when plotted logarithmically, Figures 
26 and 27; the Holloman power function appears to closely 
describe the stress - strain behavior of this material. 

Figure 28 presents the yield strength of HSLA - 100 as 
a function of temperature. The rapidly increasing strength 
with decreasing temperature is a result of the increasing 
Peierls force with decreasing temperature for this body 
centered cubic steel. The percent reduction in area 
undergoes a rapid decrease at temperatures below -150 C, 
Figure 29. The three results between -100 C and -150 C 
represent the minimum percent reduction in areas, since the 
specimens actually failed outside the minimum diameter. 
These results indicate that HSLA - 100 steel experiences 
little loss in ductility at temperatures above -150 C. The 
fact that specimens 6, 11, and 12 failed outside the minimum 
diameter is most remarkable. In all three cases significant 
necking, based on X R/A, preceeded specimen failure. The 
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Log True Strain 

Figure 24. Log True Stress (Corrected for Necking) - Log 

True Strain Curve for Hourglass Specimen No. 5, 
Tested at Room Temperature, * Indicates Fracture 
Point 
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Figure 25. Log True Stress (Corrected for Necking) - Log 
True Strain Curve for Hourglass Specimen No. 
Tested at -176 C. * Indicates Fracture Point 
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True Strain 

Figure 26. Log True Stress (Corrected for Necking) - Log 

True Plastic Strain Curve for Hourglass Specimen 
No. 5, Tested at Room Temperature, x Indicates 
Fracture Point 
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Figure 27. Log True Stress (Corrected for Necking) - Log 

True Plastic Strain Curve for Hourglass Specimen 
No. 7, Tested at -176 C, * Indicates Fracture 
Point 
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Figure 28. Yield Strength vs. Temperature for the Hourglass 
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Figure 29. / R/A vs. Temperature for the Hourglass 



diametral extensometer remained in the necked region, 
following the deformation process throughout these three 
tensile tests. The fracture surfaces of specimens 6, 11 and 

12, revealed a mixture of ductile and cleavage behavior. All 
three experienced axial cracking (parallel to the specimen 
axis). A disussion on the cracks, known as de 1 aminat ions or 
separations, is contained in the section titled microscopy 
oberservations. 

E. CONSTITUTIVE EQUATION TESTING 

In this research the Holloman power function, described 
earlier, was tested for applicability as a constitutive 
equation to describe the stress - strain behavior of HSLA 
100 steel. Table III is a tabulation of power law fit 
constants determined for each test specimen. The constants 
were determined using a least squares approximation ( as 
discussed in the experimental section [Ref. 30]) to the log 
true corrected stress - log true plastic strain behavior of 
the material. 

A value of R equal to one is a perfect fit of the 
straight line; a correlation above .98 is considered a 
good fit. The calculations necessary to produce the results 
listed in Table III are preformed by the program m Appendix 

F. The wide variation in the strength coefficient, and 
strain hardening exponent and the low values of the 
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correlation coefficient indicate that the Holloman power law 



is not very applicable to HSLA - 100 Steel 



TABLE III 



CONSTANTS FOR POWER LAW FIT (HOURGLASS SPECIMEN) 



No. 


Temperature 


Strain 


Strain 


Strength 


Correlate 




(deg C) 


Rate 


Hardening 


Coefficient 


Coef f iciei 






-4 


Exponent 










xlO/sec 


n 


K (Ksi ) 


R 


4 


20 


9. 30 


0. 0464 


183. 0 


. 981 


5 


24 


9. 26 


0. 0779 


204. 2 


. 972 


6 


-109 


9. 30 


0. 0721 


225. 7 


. 962 


7 


-176 


9. 26 


0. 0585 


255. 9 


.911 


8 


-196 


9. 35 


a 


a 


a 


9 


-72 


9. 26 


0. 0660 


213. 3 


. 980 


10 


-27 


9. 26 


0. 0610 


204. 9 


. 989 


1 1 


-150 


9. 35 


0. 0600 


237. 0 


. 971 


12 


-129 


9. 30 


0. 0783 


240. 3 


. 975 




UNIFORM GAGE -LENGTH SPECIMEN 






1 


20 


4. 34 


0. 0465 


173. 6 


. 989 


2 


22 


9. 28 


0. 0402 


164. 7 


. 969 



a - no data collected. 



The apparent good fit illustrated in Figures 26 
and 27 is lost when the corrected log true stress scale is 
expanded. An expanded corrected log true stress versus log 
plastic true strain plot is shown for specimens 9 and 10, 
whose correlation coefficients were high ( above .980), in 
Figures 30 and 31. The data follows a flattened " S " shape 
instead of the straight line as predicted by the Holloman 
power law. This flattened " S " shape was observed in the 
corrected log true stress - log plastic true strain plots 
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Figure 30. Log True Stress (Corrected for NecKing) - Log 

True Plastic Strain Curve for Hourglass Specimen 
No. 9, Tested at -72 C, « Indicates Fracture 
Point 
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Figure 31. Log True Stress (Corrected for Necking) - Log 

True Plastic Strain Curve for Hourglass Specimen 
No. 10, Tested at -27 C, » Indicates Fracture 
Point 



for all the specimens tested. Closer scrunity of Figures 26 
and 27, for specimens 5 and 7, reveals a flattened " S H 
shaped curve even on the broad corrected log true stress 
scale. 

Conway [Ref. 21;pp. 163-169] discusses an alternative 

stress - strain relation when the use of the power law is 
precluded. When the log true stress - log true strain curve 
results in a flattened M S H shape, see Figures 24 and 25, 
the power law is not applicable. The alternative stress 
strain rel ation, purported to accurately describe the type of 
behavior reported herein, is the Voce relation [Ref. 18]. 
The Voce relation is expressed as follows: 

S = S. - (S- - So) e~ f / k 

Where S is the true stress, S the final constant stress 
attained at very large strains, S is the initial stress 

corresponding roughly with the 0. IX yield stress. is the 
true strain, k is a constant and e represents the natural 
logarithm function. A development of the Voce relation is 
presented by Conway [Ref. 21:pp. 160-174]. Although the Voce 

relation will not discussed further herein, a logical follow 
on to this work would be to test its applicability. 

F. FRACTOGRAPHY 

With the exception of the samples tested below -150 C, 
the fracture surfaces were characterized by del animations, 
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which occurred as cracks running parallel to the rolling 
direction. The specimens tested between -100 C and -150 C 
did not fail at the minimum diameter. In these specimens the 
actual fracture surface occurred between . 125 in. and . 150 
in. from the minimum diameter. Two of these failures 
occurred above the minimum diameter and one occurred below 
the minimum diameter. 

Figure 32 is a photograph of the specimen tested at -109 
C and is typical of the specimens which did not fail at the 
minimum diameter. In Figure 32 the delamination, running 
parallel to the specimen longitudinal axis is quite evident. 
The fracture surface of this specimen is characterized by a 
mixed ductile-brittle fracture mode, Figure 33. Near the 
delamination very fine microvoids, characteristic of ductile 
failure, are evident. While further from the delamination 
clevage facets prevailed. These failure modes, ductile and 
brittle can be seen more clearly in Figures 34 (a) and 34 
(b), respectively. The orgm of the delaminations, which are 
planes of weakness parallel to the deformation direction, 
is still controversial. One possible explanation is that an 
aligned microstructure, due to the deformation, coupled with 
inclusions and/or grain boundary carbides provide the weak 
interfaces which allow the delamination to occur [Ref. 31]. 
However, other authors have reported that this is not the 
sole mechanism contributing to this behavior; but that 
crystallographic texture is also important [Refs. 32,33). 
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Figure 33. Fracture Surface of Hourglass 
Specimen No. 6 
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Figure 34. Fracture Surface of Specimen No. 6 (a) Adjacent 
to the Delamination (b) Adjacent to the area in 
(a), away from the De lamination 
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V. 



CONCLUSIONS AND RECOMMENDAT IONS 



A. CONCLUSIONS 

The HSLA - 100 steel tested in this research has 
excellent ductility above - 150 C. Rapidly increasing yield 
strength is observed as temperature decreases. 

The Hollomon power function should not be used as 
the constitutive equation for HSLA - 100 steel as it does 
not satisfactorily describe the stress - strain response of 
this steel. 



B. RECOMMENDATIONS 

The effect of temperature on the tensile properties 
of properly heat treated HSLA - 100 steel plate should be 
determined. 

The Voce relation should be tested for applicability 
as a constitutive equation to describe the stress - strain 
response of HSLA - 100 steel. 

Tensile testing at higher strain rates should be 
conducted to determine the effect of strain rate, in 
addition to the effect of temperature, on the toughness 
behavior of HSLA - 100 steel. 
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APPENDIX A 



INTERIM SPECIFICATION FOR TRIAL COMMERCIAL PRODUCTION OF 
HSLA-lOO STEEL PLATES 

Melting, Refining and Casting 

The heat shall be fully Killed and produced to fine 
grain practice. It shall be made with a low sulfur practice, 
vacuum degassed and argon injected with CaSi or Mg for 
sulfide shape control. The heat shall be ingot cast with 
bottom-pour molds to ensure good surface. 

Chemical Composition 

The chemical composition shall be as shown in Table I. 
Table I - Chemical Composition (Heat and Product 
Analysis ) 



ELEMENT 



TARGET for Max. X by Weight Unless 
First Heat a Range is Indicated 



Carbon 
Manganese 
Phosphorus 
Sul fur 
Si 1 icon 
Nickel 
Chromium 
Mo 1 ybdenum 
Copper 
Co lumbium 
Aluminum 
Nitrogen 



0 . 04 
0 . 90 
ALAP * 
ALAP 

0 . 25 
3 . 50 
0 . 60 
0 . 60 

1 . 60 
0 . 025 
0 . 030 
0 . 010 



3 . 35 - 3 . 65 
0 . 45 - 0 . 75 

0 . 55 - 0 . 65 

1 . 45 - 1.75 
0 . 02 - 0 . 06 

0 . 020 - 0 . 040 



0 . 75 - 1 . 05 



0 . 06 



0 . 015 
0 . 006 
0 . 40 



0 . 015 



« As low as possible 
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Hot Rolling 



Plates 1/4, 3/4, 1 -1/4, and 2 in. thick shall he rolled. 
Extra care shall he taken to minimize rolled-in scale that 
could later interfere with achieving an adequate cooling 
rate during quenching from the solution treating 
temperature. The plates shall he roller leveled while still 
warm after rolling. 

Heat Treatment 

All of the plates shall be solution heat treated for one 
hour at 1650 F ( 934 C ) and platen quenched with high 
pressure water jets from above and beneath the plate. The 
quench water shall not exceed 100 F to ensure an efficient 
quench. 

The plates shall he given an age hardening treatment 
using temperatures and times determined for each plate by 
preliminary tensile testing of samples from coupons aged at 
various conditions. Aging conditions for the plates shall he 
chosen so as to give the tensile properties listed in Table 
II. 

Mechanical Properties 

The heat treated material shall meet the tensile 
property requirements specified in Table II and the impact 
property requirements specified in Table III. 
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Table II 



Tensile Properties 



Ultimate Tensile 
Strength, psi 

Yield Strength, 

0. 2 7 . Offset, psi 



Hin. Elongation 
in 2 in. , 7 . 

Hin. Reduction 

Area, Round Specimen, 7 . 



To be recorded for 
Information Only 

<0. 75 in. >0. 75 in. 

100.000 to 100,000 to 

120.000 115,000 

17 16 



45 



The tensile properties shall be determined as the 
average value of duplicate specimens from each plate tested 
in accordance with ASTH method of testing E8. Full thickness 
flat specimens shall be tested for the 1/4 - in. thick plate 
and standard round specimens 0. 505 in. in diameter shall be 
tested for the plates 3/4 in. thick and thicker. All 
specimens shall be taken transverse to the primary rolling 
direction. 

Table III - Impact Properties 



Test 



Plate 

Thickness, Specimen Test 

in. Size Temp. , F 



0. 25 



Charpy V-Notch 
Transverse 

0. 75, 1. 25, 

2 , 00 



5mm x 10mm 0+3 

-120 + 3 



10mm x 10mm 0+3 

-120 + 3 



** Avg. of three tests, minimum. 



CVN 

Energy, * * 
ft- lb 

28 

15 



55 

30 
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The Charpy impact properties shall be determined in 
accordance with ASTM method E23. Three tests transverse to 
the final rolling direction of the plate shall be conducted. 
No single value shall fall below the minimum average 
specified in Table III by more than 5 ft-lb for standard 
specimens and 2-1/2 ft-lb for half size specimens. 
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APPENDIX B 



CHECKLIST AND EXAMPLE SETTINGS 

The purpose of this appendix is to provide a detailed 

checklist for conducting tensile tests on a Materials 

Testing System (MTS) 810 series system. The form of this 

appendix is that of an operators checklist followed by an 

operational sequence for conduction the constant strain rate 

tensile test. It provides a sequence of operations and 

references to information in the system technical manuals 

Nominal testing parameters are as follows: 

-4 

1. Strain rate : 9. 30 x 10 /sec. 

2. Total diametral displacement range : 0. 072 in. 

3. A tensile test will be set up herein using a 
dual slope, hold at breakpoint, ramp and invert function 
generator set up to allow full extensometer travel. 

4. The initial diameter of the specimen will be 
0.25 in. and the initial specimen gage length will be 1.00 
in. as in Figure 8 for a hourglass shaped specimen. 

5. Note: Safe operation of MTS equipment is 

contingent upon knowledge contained in the introductory 
section of the system operating manual. 
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CHECK 

PROCEDURE 



RECORD 

ADJUSTMENT 



MANUAL 

REFERENCE 



CONSOLE TURN ON 

1. Turn CONSOLE POWER on 



413. 05 OP, 
page 2 



PRELIMINARY ADJUSTMENT 



2. If the load cell, Extensometer 
clip-on gage, or LVDT is changed, 
ensure that the proper range card 
is installed in the appropriate 
transducer conditioner. NOTE: CRY- 
ogemc diametral extensometer 
model No. 632. 19B-21 



440. 21 OP, 
page 6 

440. 22 OP, 
page 6 



PROGRAMMING 



3. Select desired controlled _X LOAD 

variable. Control panel STRAIN 

interlock must be open STROKE 

(RESET lit). 



440. 31 OP, 
page 2 



4. Select desired 
operating range. 



LOAD +/ FS RANGE 
Full Scale : + 20 KIP 



440. 21 OP, 
page 3 



_ 100 1 

X 50 2 

_ 25 3 

10 4 



STRAIN 

+ FS = . 040 IN. RANGE 



_ 100 1 

X 50 2 

_ 25 3 

10 4 



440. 21 OP, 
page 3 



STROKE + FS 
PULL SCALE = + 3 in. 



440. 22 OP, 
page 3 
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100 

50 

25 



1 

2 

3 



CHECK 

PROCEDURE 



RECORD 

ADJUSTMENT 



MANUAL 

REFERENCE 



_J< 10 4 

5. Adjust Digital 

Function Generator 



OUTPUT 

RAMP 
SINE 

HAVERS I NE 
HAVER SQUARE 
INVERT 

BREAKPOINT 

REMOTE 

X NORMAL 
REVERSE 

LOCAL 
X NORMAL 
REVERSE 



X 



X 



CONTROL MODE 410. 31 OP, 

REMOTE 

X LOCAL 

SINGLE CYCLE 



90 

PERCENT 

DUAL SLOPE 
HOLD AT BRKPT 
RAMP THRU ZERO 
MANUAL BRKPT (OVERRIDE) 

360 

RATE 1 

1000 
RATE 2 

6. Adjust SPAN 1 for 
desired Digital Function 
Generator siginal 
ampl l tude. 

7. Adjust Digital Display INPUT SELECT 430.41 OP, 



100 



SPAN 1 



440. 13 OP, 

pages3-7 



X 

X 
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CHECK 


RECORD 


MANUAL 


PROCEDURE 


ADJUSTMENT 


REFERENCE 


indicator. 




page 2 



X i (LOAD) 

X 2 (STRAIN) 

X 3 (STROKE) 

_ 4 ( INPUT options 4-6 are 

aval label ). 



FAILSAFE ADJUSTMENTS 



8. Adjust Limit Detectors, 
if applicable. 



NOTE: 

Tbis step may be 
performed after test 
has started. See 
440. 41 OP, page 5 



XDCR 1 (LOAD) 

100 

UPPER 

X ( + ) 

(-) 



440. 41 OP, 
page 4 



10 

LOWER 

( + ) 

X (-) 

X INTERLOCK 
INDICATE 



XDCR 2 (STRAIN) 440.41 OP, 

page 4 

100 

UPPER 

X < + ) 

(-) 



100 

LOWER 

( + ) 

X (-) 

X INTERLOCK 

INDICATE 
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CHECK 

PROCEDURE 



RECORD 

ADJUSTMENT 



MANUAL 

REFERENCE 



XDCR 3 (STROKE) 440.41 OP, 

100 page 4 

UPPER 

X ( + ) 

(-) 



100 

LOWER 

( + ) 

_X (-) 

X INTERLOCK 
INDICATE 



PRELIMINARY ADJUSTMENTS AND HYDRAULIC TURN ON 



9. Monitor DC ERROR on 
the Controller meter. 

10. Null the meter using the 
SET POINT control. 

11. Push RESET on the Control 
Panel if it is lit. 

NOTE: If at any time 

RESET will not extinguish, 
loooK for an abnormal 
condition as described on 
the last page of this checklist 
under IN CASE OF SYSTEM SHUTDOWN. 

.12. Set AUTO RESET switch to OUT. 440. 14/. 14A OP, 

page 2 

.13. Push HYDRAULIC PRESSURE 413.05 OP, 

on the Control Panel (LOW page 6 

pressure condition). 

If at any time an emergency occurs, push EMERGENCY STOP 



440. 13 OP, 
page 8 

440. 13 OP, 
page 3 

413. 05 OP, 
page 2 



INSTALLING THE SPECIMEN 
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CHECK 

PROCEDURE 



RECORD 

ADJUSTMENT 



MANUAL 

REFERENCE 



14. Lower Hydraulic Actuator SET POINT CONTROL full CCW 

to bottom stop; then turn 

off hydraulic pressure. 

15. Install specimen in the upper grip. 

Tighten collar with spanner wrench. 

Plug thermocoupl e ( s ) into receptacles. 

16. Push reset on Control Panel 
and select low pressure. By 
adjusting the SET POINT control 
CCW slowly raise the actuator up to 

the specimen. Thread the locking collar 
into the lower grip, as the actuator 
moves upward, using the spanner wrench. 

17. Check that LOAD is zeroed. Adjust 440. HI OP, 

if necessary. page 6 



MOUNTING THE EXTENSOMETER 



18. The extensometer is clamped to the See Technical 

specimen with a spring-loaded arm on Manual - 

one side and an adjustable station- TRANSDUCERS 

ary arm on the other. The adjustable 
arm contact can be changed to the 
desired gage length by loosening the 
contact hold-down screws, moving the 
contact to the desired gage length, 
and the retightening the hold-down 
screws. To obtain 0. 07H in. of diametral 
travel preset extensometer to near -9. 0 
volts then adjust to -9.000 volts using the 
zero adjust. 



ZERO ADJUSTMENT 



19. Once the extensometer is attached 440.21 OP, 

to the specimen, its electrical page 4 

output may be adjusted to desired 
voltage using the zero adjust on 
the strain transducer conditioner. 
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RUNNING A TENSILE TEST 

20. Turn console power on 

21. Select desired test temperature on the temperature 
controller. Attatch thermocouple to desired locale for 
controlling the temperature. 

22. With the enviromental chamber door closed turn the 
temperature controller to cool. Open the liquid output 
valve on the cooling medium container. 

23. Bring specimen to the desired test temperature. Ensure 
that temperature has equilibrated on the specimen by 
monitoring thermocouple temperatures for the two thermo- 
couples attatched to the specimen. 

24. Press return to zero on the function generator. 

25. Press MTS 440. 37 process controller clear D/A button. 

26. Select strain control. 

27. Zero contoller meter using set point potentiometer. 

28. Press interlock resets on MTS 445 and then MTS 413. 

29. Set rate 1 on the function generator to 10 sec. and rate 
2 to 1 sec. 

30. Turn on the Tektronics oscilloscope. 

31. Press start on the function generator. When, in 10 sec. , 
the oscilloscope sweep reaches -9 volts press function 
generator hold button. 

32. Set finction generator rate to 360 sec. and rate 2 to 
1000 sec. 

33. Zero the controller meter using the set point 
potentiometer. 

34. Clear interlock resets on MTS 445 then MTS 413. 

35. Turn on hydraulics in low then switch to high pressure. 

36. Turn on the 9826 Hewlitt Packard computer, DVM, printer 
and plotter. 

37. Boot up data collection program M JHCOLLECT" . Press run 
and input the requested values. 

38. Set the MTS 445 controller recorder dials to Y1 = load, 
Y2 = strain and X = stroke, this sends these values to 
channels 1-3 on the DVM. 

39. Set the MTS 445 controller osiclloscope dials to Y1 = 
load, Y2 = off, and X = strain. Then run leads to the 
chart recorder. The abscissa is strain and the ordinate 
is load. Set chart recorder at 1 volt/in. 

40. To start the test, press the computer soft key labeled 
start and release the function generator hold button. 

41. If full extensometer travel is reached prior to the 
specimen fracturing, stop hydraulics and pause the data 
collection program. 

42. Set function generator rate 2 to one sec. and press 
return to zero. 

43. Select stroke control on the MTS 445 controller and zero 
the meter using the set point potentiometer. 

44. Change the controller oscilloscope X dial to stroke. 
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45 . 



Press interlock resets on the MTS 445 and then the MTS 
413. 

46. Turn on hydraulics in low pressure then swith to high. 

47. Press continue on the data collection program. 

46. While ovbserving the chart recorder plot SLOWLY load the 
specimen to the point of fracture. This is done by 
manually adjusting the set point control m the clock- 
wise direction. 

49. When the specimen fractures press stop hydraulics on the 
MTS 413 master control panel. 

50. Press test stop on the data collection program. 

51. Secure the flow of the cooling medium to the 
enviromental chamber. 

52. Turn off console power. When the enviromental chamber is 
at room temperature the specimen can be removed. 
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APPENDIX C 



BASIC COMPUTER PROGRAM FOR DATA COLLECTION 



in ! 

20 ! 

3 1 1 ! 

4C * 

50 ! 

GO ! 

70 ! 

00 ! 

SO ! 

100 ! 

t 10 f 

120 ! 

1 30 ! 

1 4M ! 

150 ! 

160 ! 

I 70 ! 

1 00 ! 

(SO ! DIMENSION THE ARRAYS FOR STORING DATA 

200 DIM Lod<500> .Stk ( SO 0 ) , Dia<500> , I time (500) 

210 PRINTER IS 1 (CRT 

220 Select,: ( GREAT DATA FILES 

230 PRINT ’‘Select program using softkeys." 

240 OFF FEY 

250 ON KEY 0 LABEL "CREATE BDATA" GOTO D_form 

260 UN KEY 4 LABEL "RENAME DATA FILE" GOTO ft_nam 

270 UN KEY 5 LABEL "E STOP" GOTO S_10 

260 ON KEY 9 LABEL "RUN TEST" GOTO T_est 

250 Start_idle: GOTO Start_idle 

<00 T^oit: ? 

310 End test*0 ?fj for test in prog t for test stopped 

320 Dwm-;iJ9 ! ADDRESS OF HP3497A 

330 CLEAR Dvm (INITIALIZES HP3497A 

340 Set up: ! INITIALIZE MTS TEST SET UP 

3 r >0 pRlNTFR IS I 

>.« PRINT USING "<8,#" 

3/0 UFF KEY 

3U0 PRINT "ENTER LOAD TRANSDUCER RANGE 1-4" 

39U PRINT "OR PRESS KEY I) FOR CANNED DATA" 

4UU Icond* I ! 1 RANSDUCER CONDITIONER #1 

410 GOSIJB Ranye_set 

420 PRINT "ENTER STRAIN TRANSDUCER RANGE 1-4" 

430 Icond-2 ! TRANSDUCER CONDITIONER #2 

440 GDSUB Range_set 

450 PRINT "CHOOSE EXTENSOMETER TYPE".Extenso$ ."THEN CONTINUE" 

460 Strain_go: OFF KEY 

470 ON KEY 0 LABEL "DIAMETRAL" GOTO Dlam 

480 ON KEY 4 LABEL "LONGITUDINAL" GOTO Long 

490 ON KEY 9 LABEL "CONTINUE" GOTO Axe 

500 Strain_walt: GOTO Strain_uait 

510 Axe : f 

520 PRINT "EXTENSOMETER TYPE IS ".ExtensoS 

530 BFFP 300,. 5 

5 4U PR INI "ENSURE PROPER DISPLACEMENT IS ENTERED WHEN REQUESTED" 

550 PRINT "ENTER STROKE TRANDUCER RANGE 1-4" 

560 Icond-3 ! TRANSDUCER CONDITIONER #3 

570 GOSUfi Range_set 

560 OFF KEY 

590 Imtstr-0 (THIS IS THE STARTING POINT FOR ACTUATOR STROKE 
600 Instr-0 (THIS IS THE STARTING POINT FOR THE EXTENSOMETER 



PROGRAM STORED AS 'JHCOlLECT' 

I L NS 1 1 E CHARACTERISTICS VS TEMP HSLA 100 
THE PURPOSE OF THE PROGRAM IS TO COLLECT 
THE FOLLOWING FOUR PARAMETERS DURING 
CONSTANT STRAIN RATE TENSILE TESTS AT 
VARIOUS TEMPERATURES. THE DATA IS STORED 
IN ARRAYS FOR SUBSEQUENT MANIPULATION AND 
PLOTTING. THE PROGRAM ALSO ALLOWS PLOT- 
OF THE LOAD VS. DIAMETRAL DISPLACEMENT 
DATA OBTAINED HEREIN. 

PARAMETERS: 
l.od * LOAD 

Dia - DIAMETRAL DISPLACEMENT 
Stic - MACHINE ACTUATOR STROKE 
I t l me - TIME OF TEST RUN 
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610 BEEP 500. .3 
620 PRINTER IS 1 
630 PRINT USING "9.*" 

640 PRINT "TURN ON THE DVM I!!!!!!!!!!!" 

650 PRINT 

660 PRINT "CHANGE THE DISC????????????" 

670 PRINT "ENSURE MTS HYDRAULICS IN HIGH PRESSURE AT THIS POINT" 

680 PRINT "PRESS 'CONTINUE' TO RESUME " 

690 PAUSE 

700 OUTPUT Dvm ; "VR5 AF 1 AL3" !SETS CHANNELS 1-3 TO AUTO RANGE 
710 OUTPUT Dvm ; "AI3 VT1 " 'READS PRESENT STROKE 
720 ENTER Dvm:St 

730 OUTPUT Dvm ; "AI2 VT1" ! READS PRESENT STRAIN 
740 ENTER DvmjStr 

750 PRINT " INITIAL STROKE PER DVM-";St 

760 PRINT " INITIAL STRAIN PER DVM=":Str 

770 Bstroke=Imtstr-Istroke*St!B$TROKE SET BY INITIAL CONDITIONS 
780 INPUT "Specify maximum strain transducer output, V",Max_str 
790 INPUT "Specify displacement at this voltage. in inches" , Max_disp 
800 ! THE FOLLOWING ACCOUNTS FOR TRANSDUCER RANGE SETTINGS 

81 0 1st ra;n-Istrain*<Max_disp/Max_str> 

820 Bst rain- Ins tr- 1st rain*Str ! BSTRAIN SET BY INITIAL CONDITIONS 
830 GOTO G_1 

840 Long: ! 

850 Ex tenso$="Longi tud inal " 

860 GOTO Strain_go 

870 Diam : ! 

880 Ex tenso$-"Diametral" 

890 GOTO Strain_go 

900 G_1 : INPUT "Gauge length, inches?" .Gage 

910 PRINT "gage length-" ;Gage ; " inches" 

920 INPUT "Initial diameter, inches?", D_0 
930 A_0 - < P I / 4 > * < D_0 ~ 2 > 

940 GOTO Begin 

950 Range_set: ! SUBROUTINE TO INPUT RANGES AND TO CONVERT 
960 ! VOLTAGES TO ENGINEERING UNITS 

970 OFF KEY 

980 ON KEY 0 LABEL "TEST DATA" GOTO Test_dat 
990 ON KEY 1 LABEL "RANGE 1 - 1 007." GOTO R_1 

1000 ON KEY 2 LABEL "RANGE 2 * 507. " GOTO R_2 

1010 ON KEY 3 LABEL "RANGE 3 - 207. " GOTO R_3 

1020 ON KEY 4 LABEL "RANGE 4 - 107. " GOTO R_4 

1030 R_s : GOTO R_s 

1040 R_1 : PRINT "Range 1 selected." 



1050 


IF 


Icond-1 THEN’ 


I load-2 . 0 


1060 


IF 


Icond-2 THEN 


1st rain- 1 . 0 


1 0 70 


IF 


Icond-3 THEN 


1st rok e= . 50 


1080 


RETURN 




1090 


R 2: 


:PRINT "Range 


2 selected." 


1100 


IF 


Icond-1 THEN 


I load- 1 . 0 


1 1 10 


IF 


Icond-2 THEN 


1st rai n® . 5 


1 120 


IF 


Icond = 3 THEN 


1st rok e= . 250 


1130 


RETURN 




1 140 


R 3: 


:PRINT "Range 


3 selected." 


1150 


IF 


Icond-1 THEN 


I load- . 4 


1160 


IF 


Icond-2 THEN 


1st rain- . 2 


1170 


IF 


Icond-3 THEN 


Istroke- . 1 00 


1 130 


RETURN 




1190 


R 4: 


: PRINT "Range 


4 selected." 


1200 


IF 


Icond*1 THEN 


I load- . 2 
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1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1 770 
1780 
1790 
1800 



IF Icond=2 THEN Istrain».l0 
IF Icond=3 THEN Istroke=.050 
RETURN 

Begin : !st i 1 i setting up 
I = 1 

INPUT "HOW MANY READINGS PER TEST 500 MAX?" , Rdg 
PRINT Rdg:" readings selected." 

PRINT "THE INTERNAL TRIGGERING OF THE DVM" 

PRINT "ALLOWS APPROXIMATELY 2 READINGS OF THE" 

PRINT "FOUR VARIABLES PER SECOND WITH NO ADDITIONAL DELAY" 
INPUT "ADDITIONAL SECONDS BETWEEN READINGS 1 AND 50". Delay 
INPUT "ADDITIONAL SECONDS BETWEEN READINGS 51 AND 200".Delay1 
INPUT "ADDITIONAL SECONDS BETWEEN READINGS 201 AND 400".Delay2 
INPUT "ADDITIONAL SECONDS BETWEEN READINGS 401 AND 5G0",Delay3 
Cal_x : ! 

OFF KEY 
PRINT 

PRINT "TEST SET UP AS FOLLOWS:" 

PRINT "FOR ICOND-1. 1 VOLT - " ; I load : "K ip" 

PRINT "FOR ICOND-2, 1 VOLT * " ; Istrain : "IN" 

PRINT "FOR IC0ND = 3 . 1 VOLT - " ; Istroke ; "IN" 

PRINT 

PRINT "TYPE EXTENSOMETER IS ";Extenso$ 

PRINT "NUMBER OF READINGS *":Rdg 

PRINT "DELAY BETWEEN READINGS 0-50=" ;De lay ; "SECONDS" 

PRINT "DELAY BETWEEN READINGS 51 -200*" ;Delay 1 ; "SECONDS" 

PRINT "DELAY BETWEEN READINGS 20 1 -400*" ;Delay2 ; "SECONDS" 

PRINT "DELAY BETWEEN READINGS 401 -500=" ; Delay3 ; "SECONDS" 

PRINT "Press softkey to start or to change set up." 

BEEP 1 000. .1 

ON KEY 0 LABEL "Start" GOTO Starter 
ON KEY 2 LABEL "Fix G.L. " GOTO G_1 
ON KEY 4 LABEL "Change" GOTO Set-up 
Begin_idle: GOTO Begin_idle 

Starter : ! 



PRINT "Data Acquiring" 
OFF KEY 



S tar ter2 : ! Th is interrupts data acq A restarts when "CONTINUE" 
ON KEY 1 LABEL "pause" GOTO Test_pause 
ON KEY 4 LABEL "STOP" GOTO Test_complete 
IF I<=50 THEN WAIT Delay 
IF I >50 AND I<200 THEN WAIT Delayl 
IF I >200 AND I<400 THEN WAIT Delay2 
IF I>400 THEN WAIT Delay3 
Data_acq : ! DATA ACQUISITION ROUTINE 
IF 1=1 THEN T_0*TIMEDATE 

! SETS CHANNELS 1-3 TO AUTO RANGE 
♦ READS LOAD 

! PUTS VOLTS INTO VARIABLE 
♦READS STRAIN 
♦PUTS VOLTS INTO VARIABLE 
! READS STROKE 
♦PUTS VOLTS INTO VARIABLE 



OUTPUT Dvm : "VR5 AFO AL3' 
OUTPUT Dvm : "A 1 1 VT1 " 
ENTER Dvm ; Lod< I ) 

OUTPUT Dvm : "AI2 VT 1 " 
ENTER Dvm : D ia< I ) 

OUTPUT Dvm : "A 1 3 VT 1” 
ENTER Dvm : S tic < I ) 



I t ime< I ) “TIMEDATE- T_0 
1 - 1*1 

Lrdg= I ! LAST READING COUNTER FOR STOPPING TEST 
IF I >Rdg OR I>499 THEN Stopper 
GOTO Starter2 



Stopper : ♦ 

PRINT "ACQUISITION COMPLETE" 



is 



press 
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1810 Coun t_out= 1 ! COUNTING AND SORTING VARIABLE 
1820 Conv_ss: ! 

1830 ! CONVERT VOLTAGE DATA TO ENG UNITS LOAD , TEMP . STROKE . DISPL 

1840 Lrdg=Lrdg-l 

1850 FOR H* I TO Lrdg 

1860 Lod(H)*Lod(H)*Iload 

1870 Stk(H)*Stk(H)*Istroke+Bstroke 

1880 Dia(H)*Dia(H)*Istrain+Bs train 

1890 NEXT H 

1900 ! STORE DATA AS CONVERTED TO BDAT FILES 

1910 OFF KEY 
1 920 Dat_out : ! 

1930 PRINTER IS 1 
1940 PRINT USING 

1950 PRINT "Data is being stored. Sorry for the delay " 

1960 PRINT "Assigning to Load, etc." 

1970 ASSIGN «Path1 TO "Lod" 

1980 ASSIGN »Path2 TO "Dia" 

1990 ASSIGN «Path3 TO "Stk" 

2000 ASSIGN @Path4 TO "Itime" 

2010 FOR 1*1 TO Lrdg 

2020 OUTPUT SPathl ;Lod<I) 

2030 OUTPUT ®Path2 : Dia( I ) 

2040 OUTPUT SPath3:Stk<I> 

2050 OUTPUT @Path4 ; I t ime< I) 

2060 NEXT I 

2070 FOR 1*1 TO Lrdg 

2080 ASSIGN SPathl TO * 

2090 ASSIGN »Path2 TO * 

2100 ASSIGN SPath3 TO * 

2110 ASSIGN $Path4 TO * 

2120 NEXT I 

2130 'OUTPUT THE DATA 

2140 PRINT USING 

2150 PRINT "SELECT HARD OR SOFT COPY" 

2160 PRINT "LOAD/DISP" 

2170 OFF KEY 

2180 ON KEY 0 LABEL "HARD COPY" GOTO Har 
2190 ON KEY 4 LABEL "NO HARD COPY" GOTO Sof 
2200 Stop_idle: GOTO Stop_idle 

2210 Har: PRINTER IS 706 
2220 Sof : ! 

2230 OFF KEY 

2240 PRINT " I LOAD DISPL STROKE TIME" 

2250 PRINT " (KIP) (IN) (IN) (SEC)" 

2260 FOR 1=1 TO Lrdg 

2270 PRINT USING Fm t 1 ; I . Lod< I ) , D ia( I ) . Stk ( I ) . I t ime( I ) 

2280 NEXT I 

2290 Fit 1 : IMAGE DDD . 5X . 4( 1 X ,SD . DDE) 

2300 OFF KEY 
2310 Piotz: ? 

2320 DEG 
2330 OFF KEY 

2340 PRINT "Choose whether or not to plot" 

2350 ON KEY 4 LABEL "NO PLOT" GOTO N_p 

2360 ON KEY 0 LABEL "YES PLOT" GOTO Y _p 

2370 GOTO 2370 

2380 Y_p : ♦ PLOT ROUTINE 

2390 OFF KEY 

2400 GCLEAR 



89 



2410 GINIT 

2420 GRAPHICS ON 

2430 PLOTTER IS 705,"HPGL" 

2440 VIEWPORT 13.5,133.0.10.5.95.0 
2450 PEN 1 

2460 VIEWPORT 25.110,30,85 
2470 IF Count_out*1 THEN 
2480 Max_x= . 05 

2490 Max_y»8 

2500 Y_step-8 

2510 END IF 

2520 WINDOW 0 , Max_x . 0 ,Max_y 
2530 AXES Max _x / 1 0 , Max_y / 1 0 , 0 , 0 
2540 CSIZE 2,0 

2550 VIEWPORT 13.5,133.10.5.95 
2560 LORG 4 

2570 FOR 1*0 TO Max_x STEP Max_x/10 
2580 MOVE I,-Max_y/20 

2590 LABEL USING "K";I 

2600 NEXT I 

2610 CSIZE 3 

2620 MOVE Max_x/2.-Max_y/10 

2630 IF Coun t_out * 1 THEN LABEL USING "K" ; "Displacement . in" 
2640 LORG 8 
2650 CSIZE 2 

2660 FOR 1*0 TO Max_y STEP Max_y/Y_step 

2670 MOVE -Max_x/35.I 

2680 LABEL USING M K";I 

2690 NEXT I 

2700 CSIZE 3 

2710 LDIR 90 

2720 LORG 6 

2730 MOVE -Max_x/8 , Max_y/2 

2740 IF Coun t_out * 1 THEN LABEL USING M K";”Load. Kip" 

2750 LDIR 0 

2760 LORG 5 

2770 CSIZE 1.5 

2780 MOVE 0,0 

2790 FOR J*1 TO Lrdg 

2800 DRAW DiaU) ,Lod<J) 

2810 NEXT J 

2820 N _p : ! 

2830 Coun t_out=Count_out + 1 

2840 IF Count_out<2 THEN Conv_ss 
2850 1-1 

2860 PRINT "Run another test? Press soft key" 

2870 FOR Q«0 TO 3 

2880 ON KEY Q LABEL "Run again" GOTO Cai _x 
2890 ON KEY Q+5 LABEL "New set up" GOTO Set_up 
2900 NEXT Q 

2910 ON KEY 4 LABEl "Stop" GOTO S_T0 

2920 ON KEY 9 LABEL "Stop" GOTO S_i 0 

2930 $_9 : GOTO $_9 
2940 $_1 0 : STOP 
2950 Tes t_hai t : ! 

2960 Diajn-Dia< I ) •Is t rai n^Bs t rai n 
2970 Strk-Stk(I>*Istroke+Bstroke 
2980 Lode*Lod( I >*I ioad+Bioad 
2990 PRINT "Test halted at:" 

3000 PRINT "dia of ";Diajn:" in" 
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3010 PRINT "strc^e of ”:Strk:” in” 

3020 PRINT "load of ”;Lode:” lbs** 

3030 BEEP 
3040 GOTO Cal_x 
3050 Test_pause: ! 

3060 OFF KEY 

3070 PRINT "TEST PAUSE HIT CONTINUE TO RESUME” 

3080 PAUSE 

3090 GOTO Data_acq 

3100 T es t_comp le te : ! STOPS DATA COLLECTION AND STORES THAT COLLECTED 
3110 OFF KEY 
3120 GOTO Stopper 



3130 Test_dat : ’SAMPLE 
3140 Istroke=1 
3150 ! Istrain*.004 ! 
3 1 60 1st ram* .010 f 



DATA FOR VERIFYING 

FOR DIAM. EXTENSO. 
FOR LONG. EXTENSO. 



PROGRAM 

RANGE 1 
RANGE 1 



3170 Iload*1 

3130 ! Bs t ram* . 040 ! FOR DIAM. EXTENSO. RANGE! 

3190 Bstram*0 ! FOR LONG. EXTENSO. 

3200 D_0- . 25 

3210 A_0* . 049 

3220 T_0*TIMEDATE 
3230 Lrdg-10 
3240 FOR 1-1 TO 11 
3250 Lod < I > - 1/2 

3260 Stir < I > - 1/5 

3270 ! Dia<I>-2*I-12 !FOR DIAM. EXTENSO . 0- 1 0V 

3280 D ia( I > - I !F0R LONG. EXTENO. 0-10V 

3290 It ime< I > - TIMEDATE-T_0 

3300 NEXT I 

3310 GOTO Stopper 

3320 R_nam: ! 

3330 BEEP 500,. 2 

3340 BEEP 1000, .2 

3350 PRINT "Pat in data disc ! !!!!!!!!!! !” 

3360 PRINT "Hit continue key when ready” 

3370 PAUSE 
3380 OFF KEY 

3390 PRINT "Select old file name using soft keys” 

3400 ON KEY 0 LABEL "Lod” GOTO R.nam.l 

3410 ON KEY 1 LABEL "Dia” GOTO R_nam_2 

3420 ON KEY 2 LABEL "Stic" GOTO R_nam_3 

3430 ON KEY 4 LABEL "Itime” GOTO R_nam_5 

3440 R_nam_0 : GOTO R_nam_0 



3450 R_nam_1 :01d_f i le$*”Lod" 

3460 GOTO R_nam_8 

3470 R_nam_2:01d_f ile$-”Dia" 



3480 GOTO R_nam_8 



3490 R_nam_3 : 0 1 d_f 1 le$*"St k " 



3500 GOTO R_.nam_8 

3510 R_nam_5 :01d_f 1 leS = " 1 1 ine” 

3520 GOTO R.nam.8 
3530 R_nam_3 : ! 

3540 OFF KEY 

3550 INPUT "What is new file name?” , New.f i ieS 
3560 RENAME 01d_fiie$ TO New_fileS 
3570 PRINT USING 

3580 PRINT "Any more files to rename?” 

3590 ON KEY 0 LABEL "MORE FILES" GOTO R_nam 

3600 ON KEY 4 LABEL "quit” GOTO Select. 
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3610 R_nain_ id 1 e : GOTO R_nam_ idle 

3820 D_f orm : ! 

3630 OFF KEY 

3640 ON ERROR GOTO Error.check 
3650 PRINTER IS 1 
3660 PRINT USING "9.*" 

3670 PRINT “Put in data d isc !!!!!!!!?!!! M 
3680 PRINT "Then hit continue key*" 

3690 BEEP 100 ,.2 

3700 BEEP 350,. 2 

3710 BEEP 1 000, .2 

3720 PAUSE 

3730 PRINT "Creating Lod file" 

3740 CREATE BDAT "Lod". 501 ,8 
3750 PRINT "Creating Dia file" 

3760 CREATE BDAT "D ia M . 501 . 8 
3770 PRINT "Creating Stk file" 

3780 CREATE BDAT "Stic” ,501 ,8 

3790 PRINT "Creating Itime file" 

3800 CREATE BDAT "I t ime" , 501 ,8 
3810 GOTO Select. 

3820 Error.check : ! 

3830 IF ERRN-54 THEN GOTO Select. 

3840 PRINT "Error. . .ERRN is";ERRN 
3850 GOTO D.form 

3860 END 
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APPENDIX D 



BASIC COMPUTER PROGRAM FOR DATA REDUCTION 



10 !**•* 

20 ! PROGRAM STORED AS"JHREDUCE" 

30 ' PROGRAM TO CALCULATE STRESS/STRAIN 

AO ! FROM THE DATA COLLECTED III "JHCOLLECT" 

50 ! THEN STORE CALCULATED VALUES IN ARRAYS FOR - 
50 ! SUBSEQUENT PL01TING AND CURVE FITTING 
70 ! KEY VARIABLES USED: 

80 ! Lod - Load * 

80 1 Dia * Diametral displacement » 

100! Stress * True Stress * 

110! Strain * True Strain * 

120! Lstress * Log of True Stress * 

ISO! Lstrain - Log of True Strain • 

14U! Cstress * Bridgeman corrected True Stress* 

150! Clstress - Log Bridgeman Cstress * 

160! Strainp = Plastic True Strain » 

170! Lstrainp - Log Plastic True Strain • 

180 ' 

ISO! 

200! DIMENSION ARRAYS 

210 DIM Lod<500> , Stir (500) .Dia<500) , ItlmetSOO) 

220 DIM S t ress < 500 ) , S t rai n( 500 ) 

230 DIM Lstress<500) ,Lstrain<500) ,Cstress<500> 

240 DIM Ls t rai np( 500 ) , S t rai np( 500) , C Is t ress <500 ) 

250 PRINT " ENSURE THE PROPER FILE NUMBERS" 

260 PRINT " ARE LISTED IN THE ©PATH STATEMENTS" 

270 PRINT " PRIOR TO RUNNING THIS PROGRAM" 

280 ! INPUT INITIAL/FINAL SPECIMEN DIAMETERS 

290 ! INPUT INITIAL/FINAL NECK RADIUS OF CURVATURES 

300 INPUT " ENTER INITIAL SPECIMEN DIAMETER", D 0 

310 ! CALCULATE INITIAL CROSS-SECTIONAL AREA A_0 

320 A_0-<PI/4)-<D_0'2> 

330 PRINT "INITIAL AREA -".A_0 

340 INPU1 " ENTER FINAL SPECIMEN RADIUS". Rn 

350 INPUT " ENTER FINAL NECK RADIUS OF CURVATURE". R 

360 'COMPUTE INITIAL (CORRI > AND FINAL <C0RRF) 

370 'BRIDGEMAN CORRECTION FACTORS 

380 ' INI T AL CORRECTION CORRI- .9723 

390 ! THIS FACTOR IS APPLICABLE UP TO NECKING 

400 Corn-. 9723 

410 A* 1 M 2*R/Rn > 

420 B* 1 + (Rn/< 2*R> > 

430 Corrf -1/<A*L0G<B) ) 

440 PRINT "FINAL CORRECTION FACTOR -".Corrf 

450 INPUT "ENTER VALUE FOR YOUNG'S MODULUS". Ym 

460 INPUT "ENTER MAX L0AD",Mlod 

470 Count_out- 1 ! COUNTING VARIABLE 

480 IF Count_out>1 THEN GOTO 680 

490 INPUT "CREATE FILES ? I-YES 0- N0",Cre_ate 

500 IF Cre_ate>0 THEN 

510 PRINT "CREATING STRESS FILE" 

520 CREATE BDAT "Stress", 501 .8 

530 PRINT "CREATING STRAIN FILE" 

540 CREATE BDAT "Strain", 501 .8 

550 PRINT "CREATING LSTRESS FILE" 

560 CREATE BDAT "Lstress" .501 ,8 

570 PRINT "CREATING LSTRAIN FILE" 

580 CREATE BDAT "Lstrain" ,501 ,8 

590 PRINT "CREATING CSTRESS FILE" 

600 CREATE BDAT "Cstress" ,501 ,8 
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610 PRINT "CREATING CLSTRESS FILE” 

620 CREATE BOAT "Clstress" .501 .8 

630 PRINT "CREATING STRAINP FILE" 

640 CREATE BDAT "St ramp" . 50 1 . 8 
650 PRINT "CREATING LSTRAINP FILE" 

660 CREATE BDAT "Ls tramp" ,50 1 . 8 
670 END IF 

680 ! INPUT THE PROPER Lod AND Dia FILE NUMBER 
690 ! THE FILES NUMBERS MATCH THE SPECIMEN NO. 

700 ! i.e. ASSIGN @PATH1 TO "Lodi" 

710 BEEP 300, .5 

720 PRINT " ENSURE PROPER L0D/DIA FILE DISC IN" 

730 PRINT " PRESS CONTINUE TO PROCEED" 

740 PAUSE 

750 ASSIGN SPathl TO "Lod" 

760 ASSIGN *Path2 TO "Dia" 

770 ! PATHS 3 AND 4 ARE FOR ACTUATOR STROKE AND 

780 ! TEST RUN TIME AND ARE NOT USED IN PROGRAM 

790 ! ENTER INTO LOD/DIA ARRAYS THE VALUES OF THE 
800 ! APPROPRIATE DATA FILE FOR CALCULATION OF 
810 ! STRESS. STRAIN 

820 INPUT "Specify number of data points 500 max",Rdg 

830 FOR 1=1 TO Rdg 

840 ENTER «Path1 ;Lod(I) 

850 ENTER $Path2 : D ia< I ) 

860 IF Count_out*1 THEN 

870 IF Lod< I > >*Mlod THEN 

880 Mlod=Lod(I) ! MAX-LOAD 

890 Juts = I ! DATA POINT AT MAX-LOAD 

900 ! THIS IS POINT WHERE THE LINEAR CORRECTION 

910 ! BEGINS TO BE APPLIED, SEE ARRAY_ASS IGN 

920 PRINT "READING-" , Juts 

930 PRINT "MLOD-" ,Mlod 

940 Mdia-Dia(I) ! DISP. AT MAX-LOAD 

950 PRINT "MDIA=" , Mdia 

960 GOTO Correct_b 

970 ELSE 

980 Juts-Rdg 

990 END IF 

1000 END IF 

1010 NEXT I 

1020 GOTO 1230 

1 030 ! 

1040 Cor rec t_b : ! DETERMINE SLOPE AND INTERCEPT 

1050 ! VALUES TO APPLY LINEAR BRIDGEMAN 

1060 ! CORRECTION TO POINTS AFTER NECKING 

1 070 A_uts = < PI/4 )*< <D_0-Md ia> 2> f AREA AT MAX-LOAD 

1080 St ressuts=M l od/A_uts ! STRESS-UTS 

1090 INPUT "LOAD AT FRACTURE*" . F lod 

1 100 INPUT "FINAL DIA = ",D_f 

1110 A_f = < PI /4 > * < D_f 2) 

1120 Fstress=Fiod/A_f ! STRESS AT FRACTURE 
1 130 Mb*<Corrf-Corri>/<Fstress-Stressuts> 

1140 PRINT "MB-" ,Mb !SL0PE FOR LINEAR BRIDGEMAN 
1150 ! CORRECTION 

1160 Intercept-Cor rf- <Mb*Fstress> ! INTERCEPT 
1170 ! VALUE FOR LINEAR BRIDGEMAN CORRECTION 

1180 PRINT "INTERCEPT -".Intercept 
1190 Count_out*Count_out+1 
1200 ASSIGN SPathl TO * 
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1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1 780 
1790 
1800 



ASSIGN *Path2 TO * 

GOTO 680 
PRINTER IS 1 
BEEP 200. .5 

PRINT •’INSTALL DISC TO SAVE DATA ON" 

PRINT ’’PRESS CONTINUE TO RESUME" 

PAUSE 

ASSIGN 9Path5 TO "Stress" 

ASSIGN £Path6 TO "Strain" 

ASSIGN $Path7 TO "Lstress" 

ASSIGN $Path8 TO "Lstrain" 

ASSIGN APath9 TO "Cstress" 

ASSIGN SPathlO TO "Clstress" 

ASSIGN ^Pathll TO "Strainp" 

ASSIGN $Path12 TO "Lstrainp" 

PRINT "ASSINGING VALUES TO ARRAYS" 

PRINTER IS 706 

! COMPUTE AND ASSIGN VALUES TO ARRAYS 
Ar ray_assign : ! 

FOR J*1 TO Rdg 

Ai*(PI/4>*( <D_0-Dia< J) > ~2> 

St ress( J) “Lod< J) /Ai 
OUTPUT 3Path5;Stress<J) 

St rain( J) “LOG<A_0/Ai ) 

OUTPUT @Path6 ;St rain* J) 

IF Stress* J) <*0 THEN 
Lstress< J>*0 . 

ELSE 

Lstress< J) a LGT(S tress ( J) ) 

END IF 

OUTPUT @Path7 ;Lstress< J) 

IF Stram<J)<-0 THEN 
Lst rain( J) *0 

ELSE 

Lstrain(J)»LGT*Strain(J>> 

END IF 

OUTPUT »Path8;Lstram<J> 

IF J<Juts THEN 

Cst ress* J) “Corr i*Stress< J) 

ELSE 

Corrb»(Mb*Stress( J) ^Intercept 
Cs t ress< J> 3S Cor rb*S tress ( J ) 

! PRINT "RDG»" , Rdg 

! PRINT "Dia . D ia< J ) 

' PRINT "Cor rb=" . Corrb 

END IF 

OUTPUT «Pat h9 : Cs t ress < J ) 

IF Cstress* J><=0 THEN 
Clstress* J)*0 . 

ELSE 

C Is t ress < J ) =LG 7 < Cstress* J ) ) 

END IF 

OUTPUT *PathlO:Clstress(J> 

Strainp *J)»Strain*J)-*Cstress<J)/Ym> 
OUTPUT 'iPath 1 I : St rai np< J) 

IF St ramp* J ) < s 0 THEN 
Lstrainp* J) =0 . 

ELSE 

Lstrainp* J)=LGT (Strainp* J) ) 

END IF 
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OUTPUT yPath 1 2 :Ls trainp< J > 
PRINT M rdq * s complete^’ , J 



1310 
1820 ? 

1830 NEXT J 
1 840 PRINTER IS 1 
1850 BEEP 500,1 

1860 PRINT “INSTALL DISC WITH LOAD/DIA DATA “ 

1870 PRINT “PRESS CONTINUE TO CLOSE PATHS” 

1880 PAUSE 

1890 ASSIGN GPathl TO * 

1900 ASSIGN *Path2 TO * 

1910 BEEP 250,. 5 

1920 PRINT “INSTALL STRESS/STRAIN ... DATA DISC” 

1930 PRINT “PRESS CONTINUE” 

1940 PAUSE 

1950 ASSIGN »Path5 TO * 

1960 ASSIGN APath6 TO * 

1970 ASSIGN 3Path7 TO * 

1980 ASSIGN APathB TO * 

1990 ASSIGN «Path9 TO - 
2000 ASSIGN SPathIO TO * 

2010 ASSIGN SPathll TO * 

2020 ASSIGN «Path12 TO * 

2030 INPUT “RENAME FILES'? 1 = YES 0«NO“,C_nt 
2040 PRINT “FILE SHOULD BE RENAMED USING” 

2050 PRINT “THE APPROPRIATE SECIMEN NO.” 

2060 IF C_n t < 1 THEN 
2070 GOTO 2510 
2080 END IF 

2090 R_nam: ! ROUTINE TO RENAME FILES 
2100 BEEP 500. ,2 

2110 BEEP 1000. .2 

2120 PRINT “Put in data disc ! M MU!!!! !“ 

2130 PRINT “Hit continue key when ready” 

2140 PAUSE 
2150 OFF KEY 

2160 PRINT “Select old file name using soft keys” 
2170 ON KEY 0 LABEL “Stress” GOTO R_nam_1 

2180 ON KEY 1 LABEL “Strain” GOTO R_nam_2 

2190 ON KEY 2 LABEL “Lstress” GOTO R_nam_3 

2200 ON KEY 3 LABEL “Lstrain” GOTO R_nam_4 

2210 ON KEY 4 LABEL “Cstress” GOTO R_nam_5 

2220 ON KEY 5 LABEL “Clstress” GOTO R_nam_6 

2230 ON KEY 6 LABEL “Strainp” GOTO R_nam_7 

2240 ON KEY 7 LABEL “Lstrainp” GOTO R_nam_8 

2250 R_nam_0 : GOTO R_nam_0 

2260 R_nam_1 : 0 1 d f i le$»“Stress“ 

2270 GOTO R_najn._9 

2280 R_nam_2 : 0 ld_f l le$ = “St rai n“ 

2290 GOTO R_nam_9 

2200 R_nam_3 : 0 1 d_f i 1 e$=“Lst ress" 

2310 GOTO R_nam_3 

2320 R_nam_4 : 0 1 d_f iieS=“Ls train" 

2330 GOTO R_nam_9 

2340 R_nam_5 : 01d_f i le$*“Cst ress” 

2350 GOTO R_nam_9 

2360 R_nam_6 :01d_f i le$- “Cist ress” 

2370 GOTO R_nam_9 

2380 R_nam_7 : G 1 d f i le$-"St rai np“ 

2290 GOTO R_nam_9 

2400 R_nam_3 : 0 1 d_f i 1 e$*“Lst rai np“ 
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24 1 0 R_nam_9 : ! 

2420 OFF KEY 

2430 INPUT "What is new file name 7 " . Neu_f l leS 
2440 RENAME 01d_fiie$ TO New_fileS 
2450 PRINT USING 

2480 PRINT ’’Any more files to rename 7 " 

2470 ON KEY 0 LABEL "MORE FILES" GOTO R_nam 

2480 ON KEY 4 LABEL "quit" GOTO 2510 

2490 R_nam_idle: GOTO R_nam_idle 

2500 BEEP 200, .5 

2510 PRINT "PROGRAM COMPLETED " 

2520 END 
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APPENDIX E 



BASIC COMPUTER PROGRAM FOR DATA DISPLAY 



to 

2M 
30 
4U 
50 
60 
70 
80 
90 
100 
I ! 0 
120 
130 
1 AO 
ISO 
1 60 
170 
180 
190 
200 
210 
220 
230 
240 

2S0 ! DIMENSION THE ARRAYS 

260 DIM Lod(50U),Stk(500),Dia<500),Itime<500> .Stress (500) ,Strain(500) 

270 DIM Lstress(500) ,Lstrain(500> ,Cstress(500) 

280 DIM Ls t rai np( 500 > ,Strainp(S00) ,Clst ress(500 ) 

290 BEEP 400, .5 

300 PRINT ** ENSURE THE PROPER FILES TO BE PLOTTED ARE LISTED IN THE ASSIGN” 
310 PRINT ” SPATH STATEMENTS PRIOR TO RUNNING THIS PROGRAM” 

320 PRINT 

330 Conn t_out -0 ’COUNTER 

340 INPUT "Specify number of data points 500 max",Rdg 
350 ! THE FOLLOWING CALCULATES FRACTURE POINT VALUES 

360 INPUT "INITIAL D I AME TER” , D_0 

370 A_0 -(PI/4)*( D_0 ' 2 > 

380 INPUT "LOAD AT FRACTURE” , F lod 

jlO INPUT "FINAL DIAMETER ”,Fdia 

40.J Rn*Fd ia/2 ! FINAL SPECIMEN RADIUS 

410 INPUT "FINAL NECK RADIUS OF CURVATURE”, R 

420 Corrf-1/(< U(?-R/Rn ) ) • <LOG( t ♦ (Rn/( 2*R ) ) ) ) ) 

430 PRINT "FINAL BRIDGEMAN CORR . ;Cor r f 

440 INPUT "ENTER YOUNG'S MODULUS”, Ym 

450 A_f-(Pl/4)*(Fdia‘2> 

460 Fs t ress-F lod/A_f 

470 Lf stress-LGT (Fstress) 

480 Fst rain -LOG <A_0/A_f ) 

490 Lfstrain-LGT (Fstrain) 

500 Cf s t ress-Corrf *Fs t ress 

510 C l f s t ress-LGT (Cf s t ress ) 

520 Fs trainp-Fs train- ( Cf stress/ Ym) 

530 Lf s t rai np-LGT ( Fs t rai np ) 

540 Stopper: ! 

550 IF Rdg>500 THEN GOTO 340 

560 PRINT 

570 Coun t_out -Coun t_out ♦ I 

580 PRINT "ASSIGNING PATHS” 

590 IF Count_out-l THEN 

600 BEEP TOO, .5 



PROGRAM "JHPLOT” 

THE PURPOSE OF THIS PROGRAM IS TO PLOT 
THE DATA COLLECTED BY " JHCOLLECT" . 

THE BELOW LISTED GENERIC ARRAYS MUST 
INCLUDE A SPECIMEN NU. i.e. Lodi, Dial... 
THE ARRAYS ARE: 

Lod< >- THE LOAD VALUES 
Dia( >« THE DIAMETRAL DISPLACEMENTS 
$U < )« MTS ACTUATOR STROKE VALUES 
I t i me ( >- TEST RUN TIME 
S tress ( )- TRUE STRESS VALUES 
S t rai n ( )- TRUE STRAIN VALUES 
LstressO- LOG TRUE STRESS VALUES 
Lstrain( )- LOG TRUE STRAIN VALUES 
Cs t ress ( )* BRIDGEMAN CORRECTED TRUE 
STRESS VALUES 

C 1 s t ress( )- LOG BRIDGEMAN CORRECTED 
TRUE STRESS VALUES 

St rai np( )- PLASTIC TRUE STRAIN VALUES 
Lstrainp( )- LOG PLASTIC TRUE STRAIN 
VALUES 



t 
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6 I 0 PRINT " INSTALL APPROPRIATE DATA DISC’* 
620 PRINT ’’PRESS CONTINUE TO RESUME” 

630 PAUSE 

640 IF Coun t_out * ! THEN 
650 ASSIGN $Path1 TO ”Lod” 

660 ASSIGN SPath2 TO ”Dia” 

670 ! ASSIGN *Path3 TO ”Stk” 

680 ! ASSIGN $Path4 TO "Itime" 

690 END IF 

700 IF Coun t_out-2 THEN 

710 ASSIGN $Path5 TO "Stress” 

720 END IF 

730 IF Coun t_out=2 OR 4 THEN 
740 ASSIGN $Path6 TO "Strain" 

750 END IF 

760 IF Count_out-3 THEN 

770 ASSIGN $Path7 TO "Lstress" 

780 END IF 

790 IF Coun t_out *3 OR 5 THEN 
800 ASSIGN $Path8 TO "Lstrain" 

810 END IF 

820 IF Coun t_out *4 THEN 

830 ASSIGN $Path9 TO "Cstress" 

840 END IF 

850 IF Count_out>*5 THEN 

860 ASSIGN $Path10 TO "Cistress" 

870 ! ASSIGN ePathll TO "Strainp” 

880 END IF 

890 IF Count_out*6 THEN 

900 ASSIGN £Path12 TO "Lstrainp" 

910 END IF 
920 OFF KEY 
930 PRINTER IS 1 

940 PRINT "ENTERING ASSIGNED PATHS” 

950 FOR 1-1 TO Rdg 

960 IF Coun t_out- 1 THEN 

970 ENTER *Path1 ;Lod<I> 

980 ENTER ®Path2;Dia< I) 

990 * ENTER $Path3 ; Stk < I ) 

1000! ENTER *Path4 ; I time< I) 

1010 END IF 

1020 IF Coun t_out*2 THEN 

1030 ENTER «Path5 ; St ress( I > 

1040 ENTER $Path6 : St rain< I ) 

1050 END IF 

1060 IF Coun t_out *3 THEN 

1070 ENTER *Path7 ; Ls tress < I > 

1030 END IF 

1090 IF Count_out«3 GR 5 THEM 

1100 ENTER »?Path8 ;Lstrai n< I ) 

1110 END IF 

1120 IF Count_out=4 THEM 

1130 ENTER «Path9 ;Cs tress< I ) 

1140 END IF 

1150 IF Coun t_out > =5 THEN 
1160 ENTER $PathlO:Clstress<I> 

1170! ENTER ?Path1 1 ;Strainp( I) 

1180 END IF 

1190 IF Count_out*6 THEN 

1200 ENTER SPathl 2 ; Ls t rai np< I > 
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1210 


END IF 




1220 


NEXT I 




1230 


’OUTPUT THE DATA 




1240 


Dat out : ? 




1250 


PRINT "SELECT HARD OR SOFT COPY" 




1280 


BEEP 900 . .5 




1270 


IF Count o ut ■ 1 THEN PRINT "LOAD/DISP" 




1280 


IF Count out=2 THEN PRINT "STRESS/STRAIN" 




1290 


IF Count out *3 THEN PRINT "LSTRESS/LSTRAIN" 




1300 


IF Count out*4 THEN PRINT "CSTRESS/STRAIN" 




1310 


IF Count out=5 THEN PRINT "CLSTRESS/LS TRAIN" 




1320 


IF Count out =6 THEN PRINT "CLSTRESS/LSTRAINP" 




1330 


PRINT 




1340 


Plotz: ’ 




1350 


DEG 




1360 


OFF KEY 




1370 


PRINT "Choose whether or not to plot" 




1380 


ON KEY 4 LABEL "NO PLOT" GOTO N_p 




1390 


ON KEY 0 LABEL "YES PLOT" GOTO Y_p 




1400 


GOTO 1400 




1410 


Y _p : ’ PLOT ROUTINE 




1420 


OFF KEY 




1430 


GCLEAR 




1440 


GINIT 




1450 


GRAPHICS ON 




1460 


PLOTTER IS 705 , "HPGL" 




1470 


VIEWPORT 13.5,133.0,10.5,95.0 




1480 


PEN 1 




1490 


VIEWPORT 25,110,30,85 




1500 


IF Count out * 1 THEN !MAX COORDINATES FOR LOD 


VS. DIA DISPLACEMENT 


1510 


Max_x-.10 




1520 


Max_y * 1 0 




1530 


Y step-10 




1540 


WINDOW 0 , Max x.0,Max y 




1550 


AXES Max x/10,Max y/Y step. 0,0 




1560 


END IF 




1570 


IF Count out-2 THEN !MAX COORDINATES FOR STRESS/STRAIN 


1580 


Max_x- 1 . 0 




1590 


Max_y-200 




1600 


Y step-10 




1610 


WINDOW 0 , Max x.0,Max y 




1620 


AXES Max x/10,Max y/Y step, 0,0 




1630 


END IF 




1640 


IF Count_out=3 THEN ’MAX COORDINATES FOR LOG 


STRESS/STRAIN 


1650 


Max_x - - 3 . 0 




1660 


Max_y = 2 . 5 




1670 


Y step -10 




1680 


WINDOW Max_x , 0 , . 0 1 , Ma.x_y / . 995 




1690 


AXES Max x/6.Max y/Y step. Max x . . 0 1 




1700 


END IF 




1710 


IF Count out-4 THEN 'MAX COORDINATES FOR C STRESS/STRAIN 


1720 


Max_x *1.0 




1730 


Max_y =250 




1740 


Y_s tep= 1 0 




1750 


WINDOW O.Max x.O.Max y 




1 760 


AXES Max x/IO.Max y/Y step, 0.0 




1770 


END IF 




1780 


IF Count out-5 THEN !HAX COORDINATES FOR CLSTRESS/LSTRAIN 


1790 


Max x * - 3 . 0 




1800 


Max_y-2.5 
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1810 

1820 

1830 

1 840 

1850 

1860 

1370 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 



Y_s tep = 5 

WINDOW Max_x . 0 . .01 . Max_y / . 995 
AXES Max_x/6 . Max_y / Y_s tep . Max_x . .01 
END IF 

IF Coun t_out=6 THEN !MAX COORDINATES FOR CLSTRA IN/CLS TRESS 

Max_x = -4 . 0 
Max_y = 2 . 5 
Y_step=5 

WINDOW Max_x,0. .01 ,Max_y/.995 
AXES Max_x/8 . Max_y/Y_s tep , Max_x ,.01 
END IF 
CSIZE 2.0 

VIEWPORT 13.5.133,10.5,95 
LORG 4 

IF Count_out=1 THEN 
FOR 1=0 TO Max_x STEP hax_x/10 
MOVE I,-Max_y/20 
LABEL USING M K";I 
NEXT I 

MOVE Max_x/2 , -Max_y/8 
END IF 

IF Count_out=2 THEN 
FOR 1*0 TO Max_x STEP Max_x/10 
MOVE I.-Max_y/20 
LABEL USING M K” ; I 
NEXT I 

MOVE Max_x/2,-Max_y/8 
END IF 

IF Count_out*3 THEN 

FOR 1*0 TO Max_x STEP Max_x/6 
MOVE I , -Max_y/20 
LABEL USING M K M ;I 
NEXT I 

MOVE Max_x/2 , -Max_ y/8 
END IF 

IF Count_out*4 THEN 
FOR 1=0 TO Max_x STEP Max_x/10 
MOVE I.-Max_y/20 
LABEL USING "K M ;I 
NEXT I 

MOVE Max_x/2,-Max_y/8 
END IF 

IF Count_out=5 THEN 

FOR 1=0 TO Max_x STEP Max_x/6 
MOVE I.-Max_y/20 
LABEL USING ,, K ,, ;I 
NEXT I 

MOVE Max_x/2 . -Max_y /8 
END IF 

IF Count_out=6 THEN 

FOR 1=0 TO Max_x STEP Max_x/8 
MOVE I.-Max_v/20 
LABEl USING ,# K M ;I 
NEXT I 

MOVE Max__x/2 , -Max_y/8 
END IF 
CSIZE 3.0 

IF Count_out=1 THEN LABEL USING "K M : "Diamet ral Displacement, in. 
IF Count_out=2 THEN LABEL USING "K" ; M True Strain, in/ in" 

IF Coun t_out =3 THEN LABEL USING ,, K"; M Log True Strain" 
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IF Coun t_out*4 THEN LABEL USING M K M : M True Strain" 

IF Count_out=5 THEN LABEL USING "K";"Log True Strain" 

IF Count_out*6 THEN LABEL USING "K";"Log Plastic" 

IF Count_out*b THEN 

MOVE Max_x/2 . -Max_y/5 
LABEL USING "K";"True Strain" 

END IF 
LURG 8 
CSIZE 2 

IF Count_out*1 THEN 

FOR 1*0 TO Max _y STEP Max_y/Y_s tep 
MOVE -Max_x/40 . I 
LABEL USING "K”;I 
NEXT I 
END IF 

IF Count_out*2 THEN 

FOR 1*0 TO Max_y STEP Max_y/Y_step 
MOVE -Max_x/40 , I 
LABEL USING "K” ; I 
NEXT I 
END IF 

IF Count_out*3 THEN 

FOR 1*0 TO Max_y STEP Max_y/Y_step 
MOVE Max_x/ . 99 . I 
LABEL USING "K" ; I 
NEXT I 
END IF 

IF Coun t_ou.t~4 THEN 

FOR 1*0 TO Max_y STEP Max_y/Y_step 
MOVE -Max/35 » I 
LABEL USING "K M ; I 
NEXT I 
END IF 

IF Count_out>*5 THEN 

FOR 1*0 TO Max_y STEP Max_y/Y_step 
MOVE Max_x/ .99.1 
LABEL USING "K";I 
NEXT I 
END IF 
CSIZE 3.0 
LDIR 90 
LORG 6 

IF Count_out*1 THEN 
MOVE -Max_x/ 1 0 , Max_y/2 
END IF 

IF Count_out*2 THEN 
MOVE -Max_x/8 , Max_y /2 
END IF 

IF Coanr_out*3 THEN 
MOVE Max_x / . 90 . Max_y /2 
END IF 

IF Coant_out-4 THEN 

MOVE -Max_x/10.Max_y/2 
END IF 

IF Cou.nt_out> *5 THEN 
MOVE Max_x/ . 91 , Max_y/2 
END IF 

IF Count_oiit*1 THEN LABEL US TNG "K";"Load. Kip" 

IF Conn t _out *2 THEN LABEL USING "K";"Trae Stress. Ksi" 

IF Count_out "3 THEN LABEL USING "K";"Log Trae Stress(Ksi)" 
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IF Count_out=4 THEN LABEL USING "K" ; "Cor rec tea True S t ress < ► s ; > “ 
IF Count_out>*5 THEN LABEL USING "K’*;”Log True Stress(Ksi)" 

IF Count_out>=5 THEN 
MOVE Max_x/ . 88 . Max_y/2 
LABEL USING ”K” ; "Cor rected" 

END IF 
LDIR 0 
LORG 5 
CSIZE 1 .5 
PENUP 

IF Count_out<3 THEN 
MOVE 0.0 
END IF 

IF Count_out=3 THEN 

PENUP 

END IF 

IF Count_out=4 THEN 
MOVE 0.0 
END IF 

IF Count_out 3 5 THEN 

PENUP 

END IF 

IF Count_out=6 THEN 
PENUP 
END IF 

! PLOT THE VARIOUS CURVES 
FOR J-1 TO Rdg 

IF Count_out-1 THEN 
DRAW Dia< J) .Lod< J) 

END IF 

IF Count_out=2 THEN 

DRAW Strain* J) ,Stress(J> 

END IF 
NEXT J 

IF Count_out*3 THEN 
FOR J-1 TO Rdg 

MOVE Lstrain( J) .Lst ress< J) 

DRAW Lstrain< J) .Lstress* J) 

NEXT J 

! PLOT FRACTURE POINT 
MOVE Lf strain .Lfstress 
LABEL USING "K'V* M 
END IF 

IF Count_out=4 THEN 
FOR J-1 TO Rdg 

DRAW St rain( J > . Cs t ress < J > 

NEXT J 

! PLOT FRACTURE p 0INT 

MOVE Fstrain.Cfstress 
LABE_ USING *’K M : 

END IF 

IF Count_out=5 THEM 
FOR J*5 TO Rdg 

MOVE Lstrain< J) ,Clstress< J) 

DRAW Lstrain( J) , Cist ress< J) 

NEXT J 

! PLOT FRACTURE POINT 

MOVE Lf strain .C lfstress 
LABEL USING 
END IF 
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3580 IF Coun t_out = 6 THEN 

3590 ! THIS ROUTINE PLOTS LOG CORRECTED TRUE STRESS VS. LOG PLASTIC TRUE 
3800 FOR >27 TO Rdg ! > THE FIRST PLASTIC STRAIN >.001 LOG TRUE STR 
3610 ! THIS VALUE MUST BE ENTERED FOR EACH SPECIMEN 

3820 MOVE Lstrainp< J) .Clstress< J) 

3630 DRAW Lstrainp( J) ,Cistress( J) 

3640 NEXT J 

3650 ! PLOT FRACTURE POINT 

3660 MOVE Lf st ramp . Cl f stress 

3670 LABEL USING ”K’ # ; 

3680 END IF 

3690 PEN Up 

3700 ! GRAPH TITLE 

3710 VIEWPORT 13.5,133.0,10.5.95.0 

3720 LDIR 0 

3730 CSIZE 4 

3740 MOVE Max_x/2.Max_y/.90 

3750 INPUT "ENTER SPECIMEN NO.", No 

3760 LABEL USING M K M ; "HSLA- 1 00 HOURGLASS" 

3770 MOVE Max_x/2 , Ma_x_y/ . 95 

3780 LABEL USING M K M ; "SPECIMEN NO.", No 

3790 PENUP 

3800 IF Coiin t_out* 1 THEN PRINT "LOAD/DI SP" 

3810 IF Count_out*2 THEN PRINT "STRESS/STRAIN" 

3820 IF Conn t_out~3 THEN PRINT "LSTRESS/L STRAIN" 

3830 IF Count_out*4 THEN PRINT "CSTRESS/STRAIN" 

3840 IF Count_out*5 THEN PRINT "CTS TRESS /LSTRA IN" 

3850 IF Conn t_out*6 THEN PRINT "CLSTRESS/LSTRAINP" 

3860 ON KEY 0 LABEL "HARD COPY" GOTO Har 
3870 ON KEY 4 LABEL "SOFT COPY" GOTO Sof 
3880 Stop_idle: GOTO Stop — idle 

3890 Har: PRINTER IS 706 
3900 Sof:! 

3910 OFF KEY 

3920 IF Connt_ont*1 THEN 

3930 PRINT " I LOAD DISPL STROKE TIME" 

3940 PRINT " (KIP) (IN) (IN) (SEC)" 

3950 FOR I* I TO Rdg 

3960 PRINT USING Fmtl :I ,Lod(I) ,Dia(I) .Stlc(I) .Itime(I) 

3970 NEXT I 

3980 END IF 

3990 IF Connt_ont *2 THEN 

4000 PRINT " I STRESS STRAIN " 

4010 PRINT " ( Ks l > (In/In) " 

4020 FOR 1*1 TO Rdg 

4030 PRINT USING Fmt2 ; I . Stress< I ) ,Strain( I ) 

4040 NEXT I 
4050 END IF 

4060 IF Connt_out=3 THEN 

4070 PRINT ’• I LSTRESS LSTRA IN " 

4080 FOR 1*5 TO Rdg 

4090 PRINT USING Fmt2 : I .Lstress< I > .Lstraint I ) 

4100 NEXT I 

4110 END IF 

4120 IF Connt_ont*4 THEN 

4130 PRINT " I CSTRESS STRAIN" 

4140 FOR 1*1 TO Rdg 

4150 PRINT USING Fmt2 ; I .Cstress( I).Strain(I) 

4160 NEXT I 



4 ? 80 IF Count_out = 5 THEN 

4190 PRINT " I CLSTRESS LSTRAIN" 

4200 FOR 1=5 TO Rdg 

4210 PRINT USING Fmt2 ; I ,Clstress< I ) ,Lstrain( I > 
4220 NEXT I 

4230 END IF 

4240 IF Coun t_OLLt 3 6 THEN 

4250 PRINT M 1 CLSTRESS LSTRAINP " 

42S0 FOR 1=23 TO Rdg 

4270 PRINT USING Fmt2 ; I ,Clstress< I > ,Lstrainp< I > 
4280 NEXT I 

4290 END IF 

4300 Frotl: IMAGE DDD ,5X . 2< 1 X . SD . DDDE) 

4310 Fmt2 : IMAGE DDD , 5X . 2 < 1 X , SD . DDDE > 

4320 N_p : ! 

4330 OFF KEY 

4340 IF Count_out<6 THEN GOTO Stopper 
4350 ASSIGN *Path1 TO * 

4360 ASSIGN $Path2 TO * 

4370 ASSIGN *Path3 TO * 

4380 ASSIGN ?Path4 TO * 

4390 ASSIGN $Path5 TO * 

4400 ASSIGN »Path6 TO * 

4410 ASSIGN «Path7 TO * 

4420 ASSIGN $Path8 TO * 

4430 ASSIGN $Path9 TO * 

4440 ASSIGN «Path10 TO * 

4450 ASSIGN SPathll TO * 

4460 ASSIGN $Path 1 2 TO * 

4470 OFF KEY 

4480 ON KEY 4 LABEL "Stop" GOTO $_!0 

4490 ON KEY 0 LABEL "RERUN” GOTO 330 

4500 Paiise_idle: GOTO Pause_idle 

4510 $_1 0 : STOP 

4520 PRINT "PROGRAM COMPLETED" 

4530 END 
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APPENDIX F 



BASIC COMPUTER PROGRAM FOR CONSTITUTIVE EQUATION TESTING 



1 * 

3 • PROGRAM STORED AS "POWERF IT*' 

10 ! THE PURPOSE OF THIS PROGRAM IS TO PLOT 

11 ! LOG BRIDGEMAN CORRECTED TRUE STRESS US 

12 • THE PURPOSE OF THE PROGRAM IS: 

13 ! 1 . TO APPLY A POWER FUNCTION FIT BY THE - 

14 ! METHOD OF LEAST SQUARES, TO THE LOG * 

15 ! BRIDGEMAN CORRECTED TRUE STRESS/LOG * 

16 ! PLASTIC TRUE STRAIN VALUES FOR EACH - 

17 ! HSLA-100 STEEL SPECIMEN TESTED. 

IB ! 2. COMPUTATION OE THE STRAIN HARDENING - 

IS ! EXPONENT , M , AND THE STRENGTH 

20 ! COEFFICIENT ,K1 . PLOT A STRAIGHT LINE * 

21 ! BETWEEN LOG PLASTIC STRAIN -.001 AND * 

22 ! 1.0 USING SLOPE. M, AND INTERCEPT LOG * 

23 ! K1 . THIS LINE OVERLAYS THE PLOT OF 

24 ! BRIDGEMAN CORRECTED TRUE STRESS VS. * 

25 ! LOG PLASTIC TRUE STRAIN. 

26 ! 3.C0MPU1E THE CORRELATION COEFFICIENT ,R» 

27 ! AS A MEASURE OF THE FIT BETWEEN THE * 

28 ! TWO CURVES. 

29 ! 4. ARRAY VALUES CAN BE PRINTED OUT 

31 ! 

32 ! 

33 ! POWER EQ. FORM LOG(STRESS)-LOG(K1 > ♦ MLOC< STRAIN) 

34 ! STRESS IS THE BRIDGEMAN CORRECTED TRUE STRESS 

40 ! STRAIN IS THE TRUE PLASTIC STRAIN 

50 ! THE EXPERSSION SHOULD YIELD A LINEAR RELATION 

60 ! M IS THE SLOPE OF THE LINE AND IS CALLED THE STRAIN HARDENING EXPONENT 

70 ! INTERCEPT CALCULATIONS YIELD THE VALUE FOR K1 

71 ! DIMENSION ARRAYS 

80 DIM Cls tress<500 ) , Ls t rai np ( 500 > 

90 PRINT •'ENSURE APPROPRIATE FILE NO. IS FOLLOWING THE Cls tress/Lst rai np arrays’* 
100 PRINT 

110 PRINT " APPROPRIATE DATA DISC MUST BE INSTALLED TO RUN PROGRAM" 

120! CALCULATE BRIGEMAN CORRECTION AT FRACTURE CORRF 
130 INPUT "FINAL SPECIMEN RADIUS , Rn" , Rn 
140 INPUT "FINAL NECKED RADIUS OF CURVATURE , R" , R 
150 Corrf-1/< < I +2«R/Rn>* <LOG< 1 *Rn/<2*R ) ) ) ) 

160 PRINT "FINAL CORRECTION FACTOR -"jCorrf 

161 ! THE BRIDGEMAN CORRECTION TO POINTS 1-RDG 

162 ! HAS BEEN DETERMINED AND APPLIED IN CSTRESS 
1b3 ! WHEN THE CSTRESS ARRAY WAS GENERATED. 

164 ! THEN THE LGT OF THOSE ARRAY POINTS WAS TAKEN 

165 ! TO YIELD THE CLSTRESS ARRAY. 

166 ! THESE MANIPULATIONS WERE DONE BY "JHREDUCE" 

167 ! THUS THE CLSTRESS ARRAY IN THIS PROGRAM 

168 ! HAS THE CORRECTED VALUES IN IT 

169 ! 

170 ! DETERMINE THE FRACTURE POINT 

171 ! CORRECTED LSTRESS/LSTRA INP VALUES 

173 INPUT "YOUNG'S MODULUS, YM IN Ksi",Yn» 

174 INPUT "INITIAL SPECIMEN DIAMETER" , D_0 

175 A_0-<PI/4)*<DJT2> 

176 D_f-2-Rn 

177 A_f - (PI/4 )•( D_f A 2) 

178 INPUT "LOAD AT FRACTURE" , F lod 

179 Fs t ress-F lod/A_f 

180 Fst rain-LOG( A_0/A_f ) 

181 Cf stress-Corrf **Fstress 
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184 Let s t r ess=LGT < Ct s t ress > 

185 Fstra: no =F strain-* Cfstress/Ym) 

188 Lf3trainp=LGT(Fs:raino> 

189 PRINT "LCFSTRESS=" .Lcfs tress 

190 PRINT "LFSTRAINP . Lf s t rai np 

192 ASSIGN iPathl TO "Cls tressS" 

193 ASSIGN * p atH2 TO "Ls t rai no5" 

200 INPUT ,# SPECIFY NUMBER OF ARRAY POINTS 500 MAX” , Rdg 

210 FOR 1=1 TO Rdg 

220 ENTER SPathl :Clstress< I > 

230 ENTER «Patn2 ;Lst rainp( I > 

240 NEXT I 
250 'OUTPUT DATA 

260 PRINT "SELECT HARD COPY OR SCREEN OUTPUT OF" 

270 PRINT "THE Lstramp anc Clstress arrays” 

280 OFF KEY 

290 ON KEY 0 IA3EL "HARD COPY" GOTO Har 1 

300 ON KEY 4 LABEl "SOFT COPY" GOTO Soil 

3’0 Stoo_idle: GOTO Stop_idle 

320 na: 1 : PRINTER IS 706 

330 Sof 1 : ! 

340 OFF KE Y 

350 PRINT "I CLSTRESS LSTRAINP" 

360 FOP 1=1 TO Rag 

370 PRINT USING Fmtl : I ;Clstress< I) . Ls tramp* I ) 

380 NEXT I 

390 Fmtl: IMAGE DDD.5X.2< IX .SD.DDDE) 

400 ! FIT A STRAIGHT LINE TO THE ORDERED PAIRS 
410 ! Ls t rainoi I ) . Cls t ress( I > 

420 ! SOLVING THE SIMULTANEOUS EQUATIONS AS 
430 ! LISTED IN THE CRC HANDBOOK 

440 !A AND B ARE THE FRACTURE POINT Lstrainp andClstress values respectively 
450 A=Lfstra:np » FRACTURE *0INT LS T RAINP 
460 B*Lcf stress 'FRACTURE POINT LCFSTRESS 



470 


C = a*5 




480 


D=a '2 




490 


E = C 




500 


F = B '2 




510 


G=0 




520 


NO* 7 ! DATA PAIR COUNTER 


INCLUDES FRACTURE POINT 


530 


! THE INITIAL VALUE FOR I 


IS USER INPUTTED 


550 


INPUT " FIRST DATA POINT. RDG =”. First 


551 


! THIS SHOULD BE THE FIRST 


POINT WITH LSTRAINP 


552 


! GREATER THAN -3.0 




550 


FOP I*First TO Rdg 




570 


A 0 * A ♦ L s t ramp < I > 




580 


A* A0 ! NOW A IS SUMMING 


VARIABLE 


580 


3Q=3+C 1 s t ress < I > 




600 


B = 30 ? N G fi B IS SUMMING 


VARIABLE 


6 • 0 


C0=C^<Clstress< I ) *_st p 


ai np ( I ) ) 


620 


C = C0 !NOf. C IS SUMMING 


VARIABLE 


530 


DQ»D*< Lst rainp( I ) 2> 




540 


D = D0 »NG* D IS SUMMING 


VARIABLE 


650 


F0*F+<Clstress< I) 2> 




660 


F=F0 'NOW F IS SUMMING 


VARIABLE 


670 


N0-N0+1 ! COUNTER TOR DAIA PAIRS 


680 


nEx t I 




690 


N = N 0 




69 1 


E = A 2 




532 


G = B ' 2 
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700 OFF KEY 

710 PRINT "SELECT HARD COPY OR SCREEN OUTPUT OF" 
720 PRINT "THE DATA OUTPUT" 

730 ON KEY 0 LABEL "HARD COPY" GOTO Har2 

740 ON KEY 4 LABEL "SCREEN OUTPUT" GOTO Sof2 

750 GOTO 750 
760 Har2 : PRINTER IS 706 



770 Sof 2 : ’ 



780 

800 

810 

820 

830 

831 
840 
850 
860 
870 
880 
890 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 



INPUT "SPECIMEN NO.*". No 
INPUT "TEST TEMPERATURE*" ,Tt 
PRINT 

PRINT " HSLA-100 HOURGLASS" 

PRINT " SPECIMEN NO.", No 

PRINT 

PRINT " TEST TEMPERATURE =";Tt:"DEG. C" 

PRINT 

PRINT " YOUNG'S MODULUS *";Yn>:" Ksi" 

PRINT 

PRINT " FIRST DATA POINT =", First 

PRINT 

! COMPUTE STRAIN HARDENING EXPONENT. K1 AND 
PRINT 

’SLOPE OF LINE M 

PRINT " NUMBER OF DATA PAIRS-" ;N 

M«< (N*C)-<A*B>)/<<N«D)-E> 

K1 * ( B/N) - <M*A/N> 

PRINT 

PRINT " SLOPE - ";M 

PRINT 

PRINT " INTERCEPT - ";K1 

PRINT 

! COMPUTE CORRELATION R 

Corcoef-< <N*C)-<A*B))/SQR< < <N*D)-E>*< <N*F)-G> > 
PRINT " CORRELATION COEFFICIENT . R *";Corcoef 

PRINT 

PRINTER IS 1 
Coun t_out* 1 
Plot z : ! 



1100 DEG 
1110 OFF KEY 

1120 PRINT "Choose whether or not to plot" 

1130 ON KEY 4 LABEL "NO PLOT" GOTO N_p 

1140 ON KEY 0 LABEL "YES PLOT" GOTO Y_p 

1150 GOTO 1150 

1160 Y_p: ! PLOT ROUTINE 

1170 OFF KEY 

1130 GCLEAR 

1 1 SC GIN IT 

1200 GRAPHICS ON 

1210 PLOTTER IS 705 . "HPGL" 

1220 VIEWPORT 13.5.133.0.10.5.95.0 
1230 PEN 1 

1240 VIEWPORT 25. 1 10.30.85 
1250 ’ Max_x*-4.0 

1260 Max_x*-3.0 

1270 Max_y *2 . 5 

1280 Y_step-5 

1290 WINDOW Max x , 0 . . 0 1 . Max_y / . 995 

1300 AXES Max_x76.Max_y/Y_step.Max_x . .01 

1310 CSIZE 2.0 
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1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1 440 
1450 
1 46C 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1720 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1833 
1840 
1850 

1901 

1902 

1903 
1905 
1910 
191 I 
1920 
1930 
1940 
1950 
1960 
1970 
1980 



VIEWPQR T 13.5.133.10.5,95 
LORG 4 

FOR 1=0 TO Max_x STEP Max_x/6 
MOVE I.-Max_y/20 
LABEL USING "K”:I 
NEXT I 

MOVE Max_x/2,-Max_y/8 
CSIZE 3.0 

LABEL USING ”K”;”Log Plastic” 

MOVE Max_x/2 , -Max_y /5 
LABEL USING ”K”:”True Strain” 

LORG 8 
CSIZE 2 

FOR 1=0 TO Max_y STEP Ma*_y /Y_s tep 
MOVE Max_x / . 99 , I 
LABEL USING ”K”;I 
NEXT I 
CSIZE 3.0 
LDIR 90 
LORG 6 

MOVE Max_x/.91 ,Max_y/2 

LABEL USING ”K”:”Log True S t ress < Ks i ) ” 

MOVE Max_x/.88.Ma*_y/2 
LABEL USING ”K” ; "Corrected” 

LDIR 0 
LORG 5 
CSIZE .5 

! THIS ROUTINE PLOTS LOG CORRECTED TRUE STRESS VS. LOG PLASTIC STRAIN 
FOR J=First TO Rdg 

MOVE Lstrainp< J) ,Clstress< J) 

DRAW LstrainpC J) ,Clstress( J) 

! LABEL USING 

NEXT J 

PENUP 

! PLOT FRACTURE POINT 
CSIZE .5 

MOVE Lf ot rai np . Lcf s t ress 
LABEL USING ”K” ; ”*” 

! PENUP 

! THIS SECTION PLOTS THE CURVE FIT LINE 
! FIRST POINT CORRESPONDS TO A STRAIN OF .001 
! THE SECOND POINT CORRESPONTS TO A STRAIN 0F1.0 
X1--3.0 
Y1-(M*X1 >+K1 
MOVE XI . Y1 
X2 = 0 

Y2 = < M*X2 > +Y 1 
BEE D 500. .2 

PRINT "CHANGE COLOR OF PEN ? 30 SEC DELAY” 

! PRINT "PRESS PEN DOWN” 

WAIT 30 
DRA* XI . Yi 
DRAW X2.Y2 
! GRAPH TITLE 

VIEWPORT 13.5,133.0.10.5.95.0 
LDIR 0 
CSIZE 4 

MOVE Max_x /2 , Max_y / . 90 

INPUT "ENTER SPECIMEN NO.”. No 

LABEL USING "K” : "HSLA- 1 00 HOURGLASS” 
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1990 MOVE Max_x/2 , Max_y / . 95 
2000 LABEL USING "K" ; "SPECIMEN NO. ".No 
2010 PENUP 
2020 N_p : ? 

2030 OFF KEY 

2040 Coun t_out = Cou.n t_out+ 1 
2050 IF Count_out>1 THEN 
2060 ASSIGN APathl TO * 

2070 ASSIGN «Path2 TO * 

2080 ELSE 
2090 GOTO Plotz 
2100 END IF 
2110 OFF KEY 
2120 PRINTER IS 1 

2130 ON KEY 4 LABEL "Stop” GOTO S_ 1 0 

2140 ON KEY 0 LABEL "RERUN” GOTO 192 

2150 Pause_idle: GOTO Pause_idle 

2160 S_1 0 : STOP 

2161 PRINT ’•PROGRAM COMPLETE’’ 

2170 END 
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